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INTRODUCTION 



Written by Donald Anthony Schnapp using an apple lie 
computer, Essential Data Duplicator 4 is a powerful 
computer program for allowing the user to make back up 
copies of his "copy-protected 1 ' software. The 6502 
assembler which was used to enter EDD 4 is named "BIG MAC", 
which is similar to the "MERLIN" assembler written by Glen 
Bredon (available from Roger Wagner Publishing Inc.). 

The main purpose of us providing this listing, is to let 
you see the "insides" of a sophisticated 6502 computer 
program for educational purposes. Buried in this listing 
are subroutines for managing routines, text output 
routines, hi-resolut ion graphic output routines, multiply 
and divide routines, interfacing disk drives routines, plus 
many more. Perhaps our routines will give you ideas for 
creating your own. 

The section on the PLUS card explains how it works and how 
to interface it with your own 6502 programs. 

Since every "batch" of EDD disks are programmed 
differently, this listing may not be an exact listing of an 
EDD disk which you may own. For reference purposes, this 
source code listing was printed out from the batch of EDD 4 
disks recorded on April 23, 1986. 
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PLUS CARD TECHNICAL INFORMATION 
AND SOFTWARE INTERFACING 



The purpose of the PLUS card is to read the bits of data 
coming from the disk drive and to make them available to 
computer software. This is done by first taking eight bits 
of data from the raw bit stream coming from the disk drive, 
combining them to form a raw disk byte, at which time a flag 
is set. Software detects the flag, reads the raw disk byte, 
at which time the flag is cleared. And the whole process is 
repeated until all the information is gathered. Using this 
process, every bit of data coming from the raw bit stream 
can be accurately read into the computer 1 s memory. 

The PLUS card has two valid memory locations in which 
software can access. They are $C080,X and $C081 ,X where "X" 
equals the slot number times $10. For example, if the PLUS 
card has been installed in slot //5, M X !I would need to equal 
"$50" or if slot //7 was used, M X n would need to equal "$70". 

A description of EDD PLUS card memory locations are as 
follows : 

$C080,X contains the 8 bit raw disk byte. 

(only valid if READY FLAG is minus) 

$C081,X contains the READY FLAG. 

Here is a sample routine, which takes one byte from the disk 
drive (note: drive must already be ON, in the read mode, and 
the read/write head must be located on the track which needs 
to be read) : 



LDX //$50 

CHKREADY LDA $C081 ,X 

BPL CHKREADY 

LDA $C080,X 



;Slot number of PLUS card. 
;See if READY FLAG is set. 
;No, go back & check again. 
;Yes, take the byte. 



To go one step further, here is a routine which takes $2000 
bytes from the disk drive and stores them in memory 
locations from $6000 through $7FFF (note: disk drive must 
already be set up as before) : 



LDY #$60 

STY $1 

LDY //$0 

STY $0 

LDX //$50 

CHKREADY LDA $C081,X 

BPL CHKREADY 

LDA $C080,X 

STA ($0),Y 



;Set up memory 
^pointers to start 
;storing at address $6000. 

y 

;SLot number of PLUS card. 
;See if READY FLAG is set. 
;No, go back & check again 
■,Yes, take the byte. 
; Store the byte in memory. 
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INY ;Move pointer to point 

BNE CHKREADY ;at next memory byte. 

INC $1 ;If not at mem $8000 yet, 

BPL CHKREADY ;go back and do again. 



The first example below, is what a raw bit stream looks like 
when a "normal" timing gap containing $FF disk bytes with 2 
timing bits attached is read by the disk drive. Below this, 
is what the disk bytes look like after they pass through a 
"standard" apple drive controller which "strips off" all the 
timing bits. Lastly, is what the raw disk bytes look like 
after they pass through the PLUS card (from the raw bit 
stream), which keeps all bits intact: 

Raw bit stream coming from disk drive: 
1111111100111111110011111111001111111100111111110011111111 

Raw disk bytes read using the apple drive controller: 
FF FF FF FF FF FF 

11111111 11111111 11111111 11111111 11111111 11111111 

Raw disk bytes read using the PLUS card: 
FF 3F CF F3 FC FF 

11111111 00111111 11001111 11110011 11111100 11111111 

Since raw disk bytes read using the PLUS card are not 
usually very useful in their "raw" format, you will often 
need to create a routine which separates the data bytes from 
the timing bits. The routine which EDD uses to read the 
disk and separate the timing bits is called "DCCDUMP" , and 
is contained in the "DRIVE ROUTINES" listing. 

Although it is usually not very useful, it is, of course, 
possible to read in a whole buffer full of raw disk bytes, 
and then write them out without ever decoding or analyzing 
them. 



ADDITIONAL PLUS CARD PROGRAMMING INFORMATION: 

When writing programs for use with the PLUS card, keep in 
mind that one raw disk byte will be ready approximately 
every 32 cycles (one bit in 4 cycles equals 8 bits in 32 
cycles). If your routine doesn't read the raw disk byte 
shortly after the READY flag is set, you will miss it. KEEP 
YOUR LOOPS SHORT! 

The book named "Beneath Apple DOS" has all of the detailed 
information needed for accessing the disk drive through the 
drive controller. 

•k-k rk-k ki< 
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ESSENTIAL DATA DUPLICATOR 4 MEMORY ALLOCATION 



$0000 - $00FF = ZERO PAGE VARIABLES 

$0100 - $01FF - STACK POINTER 

$0200 - $03FF = MISC. POINTERS /VALUES 

$0400 - $07FF = EDD LOADER 

$0800 - $0BFF = TEXT DISPLAY SCREEN 

$0C00 - $17C2 = MAIN EDD ROUTINES 

$17C3 - $1CFF = CHANGE PARAMETERS & BACK UP A DISK MODULE 

$1D00 - $20FF = SCAN DISK Sc CERTIFY A DISK OPTIONS MODULE 

$2100 - $25FF = DRIVE SPEED & DRIVE EXAMINE OPTIONS MODULE 

$2600 - $2C29 = ANALYZE A DISK MODULE 

$2C2A - $2FFF = CONTROL MODULE 

$3000 - $3FFF = TEXT TABLES & ADDRESSES 

$4000 - $77FF = RAW DISK BYTE BUFFER 

$7800 - $AFFF = TIMING BIT BUFFER 

$B000 - $B0FF = PREANALYZE ROUTINE BUFFER 

$B100 - $B1FF = PREWRITE ROUTINE BUFFER 

$B200 - $B2FF = PROGRAM VARIABLE STORAGE BUFFER 

$B300 - $B3FF = PARAMETER BUFFER 

$B400 - $B4FF = PARAMETER BUFFER (reserved) 

$B500 - $B6FF = EXPANSION SPACE 

$B700 - $BFFF = DISK DRIVE ROUTINES MODULE 

** ** 
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ASM 



* ESSENTIAL DATA DUPLICATOR 

* VERSION 4.2 STANDARD/PLUS 

* 6502 ASSEMBLY SOURCE CODE 

* COPYRIGHT <C) 1986 

* ALL RIGHTS RESERVED 

* UTILICO MICROWARE 

* DONALD ANTHONY SCHNAPP 

* PRINTED APRIL 23, 1?8<S 
**************************** 



*********************** 

* MAIN ROUTINE MODUAL * 
*********************** 



*~MiMORY~ALLOCATIONS~* 

* * 

ZPAGE 
EDD4 

CERTDISK 
SCANDISK 
HEf 




ED 
ANALYZE 
CONTROL 
TXTABLE 

bbeanl| 




pa^ 

DRVR 



$0000 
*0C00 
«1D00 

i03 
OC 

>lS3 
*2<S00 
*2C2A 

r 

$B2Q0 
*B300 



•*OQFF 
■*1BFF 



-*3FFF 
-*BOFF 
-*B1FF 

urn 



* ZERO PAGE 
* 

W1L 
W1H 
W2L 
W2H 
W3L 
W3H 
W4L 
W4H 

Hh : 

SAL 
SAH 

WZPAGE1 
WZPAG 
CSLT 

m 

CWRK 
DCF 
HXF 



2 = 



HDCF 
HHXL 
HHXH 
LDCF 

tflxH = 
VMODE 

^VARIABLES"* 
* * 



USUAGE * 

zpage+sq 

ZPAGE+*1 

ZPAG1 
ZPAGI 

ZPAGI 

W 

m 

- 88L. 

ZPAGI 
ZPAGL 
ZPAGE+*E 
ZPAGE+*F 
ZPAGE+*10 
ZPAGE+*11 
ZPAGE+*12 
ZPAGE+*13 





ZPAGE+*18 
ZPAGE+*19 
ZPAGE+*1A 
ZPAGE+*1B 
ZPAGE+flC 
ZPAGE+ilD 
ZPAGE+*20 



VAR+*00 
VAR+»30 
VAR+*3E 

m 

VAR+*<41 
VAR+*65 
VAR+*<49 
VAR+*<5E 
VAR+*6F 
VAR+*70 
VAR+*71 
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86 

U 



19 TWIND 
'0 SCNMB 



1 

II 

94 
95 

» 

98 
99 
100 

8i 

m 
m 
i 

109 
110 

lis 

$ 

123 
124 
125 

m 

1 30 
133 



16 

I 

160 
161 
162 

m 
m 

167 
168 
169 

!?? 



LVP 

LASTHP 
KYVALUE 
TW1NDTOP 

SCPB 
SCWP 

SCHKYVLU 

SCDRCT 

SCFLTP 

SCVLPNT 

PT RANGE 

SPDLPNTR 

POS 



PDD 

DCCSLOT 

DRVCOUNT 

CTRKO 



STEP 
TRACK 
SYNCFLG 

m 

TLENL 
JLENH 



R = 



US 
WSL 
WSH 
FLG 

WRKPNTR2 

WS2 

UISL2 

W 

EPH 

EPTSV 

EPTSH 

□WHEX 

OWDEC 

Wl 

TEMPH 

m i4 



* PARAMETERS 

SYNCTi[i~=" 
TIMEBITS = 
SPCLCNTL - 
ABSLNGTL = 
ABSLNGTH = 

nousm: 

WERROR 
TRKSYNL 
MNBTEQLN 



WR+$72 
VAR+*73 
VAR+*74 
VAR+f75 
VAR+f76 
VAR+177 
VAR+*78 
VAR+*79 
VAR+*7A 
VAR+*7B 

VAR+*7E 
VAR+*7F 
VAR+*80 
VAR+*81 
VAR+*82 
VAR+*83 
UAR+*84 
VAR+*85 
VAR+*86 
VAR+487 
WR+*88 
VMR**89 
VAR*f 8A 
VAR+*8B 
VAR+*8C 



VAI 
VAI 




:+fBD 

m 

VAR+*90 
VAR**91 
VAR+*92 
VAR+S93 
VAR**94 
VAR+*95 
VAR+*96 
VAR+*97 
VAR+»98 
VAR+*99 
VAR+*9i 
VAR**9 
VAR+*9C 
VAR+*9D 
VAR+*9E 
VAR+*9F 
VAR+fAl 
VAR+*A6 
VAR+*A7 
VAR+*A8 
VAR+ 
VAR+' 
W»R+*j 
VAR+*I 
VAR+*I 
VAR+*| 

VAR+ 
VAR+ 
VAR+ 
VAR+ 
VAR+ 
VAR+ 
VAR+ 
WAR* 
VAR+*C8 
VAR+*C9 
UAR+*CA 



PARMS*f00 
PARMS+*09 
PARMS+*0A 
PARMS+*0C 
PARMS+*0D 

PARMS**12 
PARMS+4H3 
PAtt1S+*17 
PARMS+*19 
PARMS+*1A 
:*flB 
+*1C 
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* iDD4 COmON~ROUTINi~HOOKi~* 

Svm 

*EPCALC = EDD4+*C 
*EPCALC1 = EDD4+*F 
*EPOUT = EDD4+*12 
*CHKESC ■ EDD4+*15 

* C^w"^LYzi~ROUTINi"HOOKi"* 

ANALYZET~=" "~ANALYZE+*Q~ 

FNDLNGTH = ANALYZE+*3 

WSTSYNC = ANALYZE*** 

NCAUTO = ANALYZE**? 



DRVR+*00 
DRVR+*03 



* COMMON~DRl0i"ROuf iNi~Ho6i<i~* 
#— 

aI 

S$8?RK2 = 
TRKV1 
TRKV2 
TRKV3 
ARMSPD 




TDUMPU = 

JcrBShk = 



'R+fOF 

mi 

DRVR+*18 

mm 

DRVR+*21 
DRVR+*24 
DRVR+*27 



*~ EDD~4~MANA6iR~"* 
* * 



ocoo 

0C03 
0C06 
0C0? 

0C18: 
OClAi 

im 

0C21 : 
0C23: 
0C24: 
0C2?i 
0C2A: 
0C2C: 
5C2F: 
0C32: 
0C35: 
0C36: 

QQ3 
0C3 



4C 18 OC 

4C EA OD 

4C FF OD 

4C 06 0E 

4C A5 13 

4C |7 13 

tc c? hi 



AO 00 
84 OA 

:4 
:C 
84 

B9 
99 00 



2 8 



C8 
DO 
AD 



B2 

B3 
B4 



F7 

51 CO 
55 CO 
80 B2 




20 D5 OD 
AD 00 CO 
FB 




0C5D: 
0C5F: 
0C62: 



A? 22 
20 05 15 
20 99 17 



EDD 



EO 
El 

DE 



ORG EDD4 

JMP EDD 

JMP Ul 

JMP W2 

JMP W3 

JMP EPCALC 
JMr 




ttO 

SCVP 
SCHP 

TUINDTOP 



,'ARMS/r 
PARMStT ,Y 



*C051 
*C055 
POS 



RKO 
JJRKD 

TOUT 
BL 

*C000 

I CO 10 
ttl 

TOUT 



JUT 

TOUT 
MTROFF 



;*0C00 
;*0CQ3 



i RESET 
PARMS 

DEFLT 
■SET 
; SCREEN 

; SET 
CURRENT 

\m 

TRACKS 
D1SPLY 
TITLE 
SCREEN 



,E/PC& 
•MENU 



;DOESC 
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B2 



14 



A9 00 
8D 75 
4C 53 



8D 86 
8D 87 
A? 80 



15 



OF 



4C 81 

AD 83 
C? 01 

a8 81 



B2 



B2 



B2 



00 



260 E2 

261 

262 



E3 



30 



20 IE 11 
20 28 OD 
20 35 OD 336 
8D 74 B2 337 
20 3C 11 338 
2f 
Al 
61 




JSR 

3sR 
LDA 
STA 

bN 

JSR 
LDX 
LDA 

STX 

» 

LDY 
LDA 
CMP 
BNE 



ES 
EJ 

CLRERRCD 



CHNGSLTS LDA 
JSR 
LDA 
STA 
STA 
LDA 

If 

JSR 
LDA 
LDX 

JMP 




QO 

QD 
QS 



CHECKMEM 
*C051 
SCDDSPLY 
fi8 

TW1NDT0P 

f§UT 

SCGETO 

LTEDDQ.Y 

LTEDDO-fl.Y 

W1L 

I^pBlean 
fls 

PDS 
ES 



DRVCOUNT 




#0 

TWINDTOP 

& 

CTRKO 
CTRKD 

: fen 



LSHGT 



Kit 

mi 

E3 ' 



QUITEDD LDA PDD 
CMP #1 




BCS 

LDA POS 

JMP QS 

LDA PDS 

RA **C0 

TA *1 



LDA 



»8 



■SET 

•WINDOW 
DISPLY 
AND GET 

jOPTIQN 

;GET 
READY 



DRIVE 
;SYSTM 

;D0 OPTN 

; CLEAR 
ERROR 
•CODES 

; CHANGE 

iMs 4 



iwh 



ON 



;WHEN 
QUITING 

\m 

DISK I 
DRV #1. 
OR BOOt 
FRM THE 
HIGHr 
| SLOT 



iHEST 



>TA *l 
JMP ($0) 

***#x****x«**s*****xx**#x***x***x 

#"cbwoN"iuiRoufiNli"* 
* * 



KYPRMPT 



KYCLRGET JSR 




ASH 



LUE 
ORM 



5 STANDRD 
KEY 

PROMPT 
ROUTINE 
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2C 10 
20 CB 
20 4B 

3K 

60 

C9 AO 
FO OF 
C9 8A 
Ei « 



344 



'5 
07 
8 
4 

88 



C9 

B 

A? 80 
60 

AD 00 CO 
10 FB 
C9 EO 



ID 74 B2 
AO 04 
A2 40 
EC CO 

FA 

30 CO 



DOFg 



c 

FO 
60 




CO 



2C 

AD 74 B2 
C9 9B 
29 
84 
28 



AD 00 CO 
10 |4 

10 CO 
99 17 



S H co 

DO F8 
AD 10 CO 
4C 62 OC 

AE 80 
AC 81 
AD 8 
8D 8 




86 
87 

BC 87 B2 
8E 86 B2 

8 KM 

85 FF 
AD 00 CO 
C9 9B 

60 



0DD5: 20 CB 15 



KYGET 



KYSUB 
KYSUB2 



K2 



KYIN 



KL3 



KYDN1 



KL4 



K3 
K7 



K5 
K4 

K6 



CHKESC 



BL 



*C010 
!R RPH 
JSR KYIN 
JSR RPL 

KYVALUE 



CM 
BC 
AND 



PL 
CM 



PLA 
RTS 



J! 
JMP 



CMP K*AO 

BEQ K2 

CMP *t*8A 

m Kr 

BEQ 

CMP «48B 

BNE K3 

LDA t»488 
RTS 

DA #48D 
TS 



F 3 



LDA $CO00 
:PL KYIN 
P #*E0 
CC KL3 
*DF 



VALUE 
LDY **4 
LDX #*40 
LDA *C0EC 

Hf SUlO 
LDA KYVALUE 
CMP t»*9B 
K4 

»*84 
BEQ K6 
RTS 



DA 4C000 
PL K3 
»$E0 



KL4 

m 



DF 

BIT *C010 
PHA 

JSR MTROFF 



»*9B 



EQ K4 
LA 



LDY *C000 

CPY «*9B 

BNE K3 

\DA *C010 



tK 

l s¥a m 

LDA PDD 

STA POD 



pre 

PfiD 



STX 
STY 

LDY CTRKO 

LDX CTRKD 

STY CTRKD 

STX CTRKO 
-CDD2 



STA *FF 

LDA *C000 

CMP *»*9B 

BEQ K5 

LDA *FF 
RTS 

JSR RPH 



5 CLEAR, 
GET A 
KEY 



; REPLACE 
M0VEMNT 
KEYS 
WITJ 



STANDRD 
; VALUES 



;6ET A 
; KEY 

jFIXCASE 



JUST 
CLICK 

ftkFlV 



5 CHECK 
FOR 

ESC KEY 
AND 
CTRL-D 
|KEY 

jANOTHER 
KYPRESS 
; ROUTINE 

jFlXCASE 



;ESC 



; CHECK 
KYB0ARD 
FOR ESC 



;D0 

jCNTRL-D 

\W 

WITH 

ORIGNL 

DRIVE 



; ANOTHER 
CHECK 
•ESC 

(routine 



{JUST 



Page 11 



15 



BD B2 

0? 



IB 0E 



8? 





IB OE 



A2 00 
AO OB 



OE 



OE 



IB OE 



AO §2 
92 B2 



B2 



iO B2 



>D 9F B2 
9F B2 



A2 00 

8 8 



B2 



85 09 
AD 9F B2 
8D 94 B2 
AD AO B2 



470 
472 



Bl 



Wl 



WIS 



U2 



W3 



W4 



W5 



WTIN 
UL 



CNVDH 



CNL1 



CND1 



CNVHAD 

cnvhxad 

CNVHD 



DA ttO 

TA *0 

LDA *C030 

SR W4 

EC $0 

PL 



LDY 
IP 



DEI 
BNI 
DEY 
CP 



MS 

STA 



(TS 

ARMWAITR 
WIS 
LDX ARMCVH 
ARMCVL 
WTIN 



'I! 

DX tt«00 

LDY **DC 

JMP WTIN 

LDX tt«04 

LDY «*00 

JMP WTIN 

LDX #*20 

LDY #*00 

JMP WTIN 

LDX *»*00 

LDY #*0B 

JMP WTIN 



LDX 8*03 
LDY »*00 
JMP WTIN 



LDA tf$2 
STA WRKSPC 
LDA *C0EC 
WRKSPC 
WL 



PX »*FF 
E WTIN 
S 



A 
TA 



HEX 
HEX+1 
STA WRKPNTR 
LDY WRKPNTR 
CPY #5 

lK SJvdec.y 

AND g*0 F 
ASL CNVHEX 
ROL CNVHEX+1 
ADC CNVHEX 
TAX 

#0 

CNVHEX+1 



LDA 
ADC 
TAY 

ASL CNVHEX 
>HEX+1 



ROL CNVI 

ROL SKSS+l 
TXA 

ADC CNVHEX 

|TA CNVHEX 

wl rat! 

INC WRKPNTR 

JMP CNL1 
CLC 
RTS 



#0 

CNVHEX+1 
CNVHEX 
LDA 05 
STA WRKPNTR 
jjDA S^CNVDEC 

LDA M>CNVDEC 

STA W5H 

LDA CNVHEX 

STA WSL 

LDA CNVHEX+1 



Page 



IS 



A9 BO 
8D 93 
AO 94 
38 



B2 



9 
AA 



1 



8 





AD 
81 



08 



E6 08 
DO 02 



84 
85 

A9 
85 01 



8! 
"8 



85 
85 




°8 
S IS 

E5 01 
85 05 



DB 

1181 

A6 03 
A5 02 
60 

86 03 
85 02 
AO 08 
A9 00 



OA 
26 

18 



05 

8? 



30 B2 



90 OL 
8D 95 B2 
4 
3 
E5 



B2 
B2 



B2 




A5 04 
A4 05 
85 03 

83 

5§ 

20 00 OF 
A2 64 
20 31 OF 
8A 

20 7C OE 
60 



4C 00 OF 



CNL2 
CNL3 



CNL4 



CNL5 



CALCF2 



DIVIDE 
DVL1 



DVL2 



DVL3 



STA WS 

LDA USL 

||C LTC,Y 

LDA WSH 

SBC LTC+l.Y 

BCC CNL4 

STA WSH 

STX WSL 

INC WS 

BNE CNL3 

LDX ttO 

LDA WS 

STA <W5L,X) 

INC WSL ' 



BN 
IN 

NY 



CNL5 
W5H 




RTS 



DA W3L 
DY W3H 



W2H 



#0 

STA W2L 
STA W3H 
JSR DIVIDE 
LDX tt*64 
JSR MLTPLYAX 
TXA 

JSR CNVHAD 
RTS 

DIVDAXY STX W2H 
W2L 
W1L 
ttO 
W1H 
STA W3L 
STA W3H 
JMP DIVIDE 



LDY 
LI 



«16 



CLC 

ROL W2L 
ROL W2H 
ROL W3L 
W3H 
W3H 
W1H 
" >L3 

K 2 

CMP W1L 

BCC DVL3 

LDA W3L 

SBC W1L 

STA W3L 





LDX W2H 

LDA W2L 
RTS 

MLTPLYAX STX W2H 

STA W2L 

LDY «8 

LDA tfO 



MPL1 



ASLA 
ROL W3H 
ASL W2L 

gee mpsi 
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5 8! 

6 OS 



EF 
85 04 

A<| 05 



20 B5 10 
20 63 10 
20 61 
20 28 
C9 8D 
FO ID 
20 66 10 
20 D8 OF 



10 



77 B2 



602 
603 
604 
605 
606 
607 
608 
60? 

ffl 

612 
613 
614 
615 
616 
617 
618 
61? 
620 
621 
622 



MPS1 



SCGETO 
SCGET02 



ADC 
BCC 
INC 



W2H 

MPS1 

U3H 



IE MPL1 
STA U3L 



5SRCH 
SCCHNG 
SCODSPLY 
KYGET 

SS2 

SCCHNG1 
iRR 
02 

SCNMBR 

SS2 

|g|HKY 

lfcGET02 

SCODSPLY 

SCVP 

SCPT 




(MULPAND 
jRSLHIGH 

jRSLLOU 



HTING 
OPTION 
FROM 
1 1 SCREEN 

sTXN 
jCHK 

jlF = 
CURRENT 
jNOUAIST 



LC 
TN 



OD 



B2 



SCVLSL 



SCVLSHGT 



SL1 



SCE 
SS3 

GETVL 




jIr SPLASH 

JSR SCCHKARR 

318 CHKNMBR 

SB iT L 

jJMP Sj.1 

JSR Ul 
RTS 

TAX 

LDA SCVLPNT 
W 

LDA <U4L> ,Y 
TXA ' 
SCE 



CMP <W4L) ,Y 
BCS SCE 
LDY SCOlPNT 
STA <W2L) ,Y 
*1UT 



j SCREEN 



; GETD6T 



B2 



4 



SCCHKARR LDA KYVALUE 
IP tf*8B 





CHECK 
UP ARRU 

LT ARRU 

DN ARRU 

RT ARRU 

< SPACE) 

<RETRN> 



Page 14 



0FF3: 
FF4: 
FF7: 
FF9: 

OFFB: 



7D B2 




8D 7B B2 
AD 7B B2 



B2 




1016: 
1019: 
101B: 
101E: 
IF: 
21: 
1023: 

1024: 
1026: 
1029: 
102B: 
102E: 
1031 : 
1034: 
1037: 
1039: 

m\ 

1041 : 
1044: 
1046: 
1048: 
1Q4A: 
104D: 
1050: 
1052: 
1055: 
1057: 
1059: 



B2 



B2 

03 

AD 78 B2 
3§ 

85 OA 
A9 00 
60 



29 3F 
8D 7A B2 
A5 OA 
8D 79 B2 
20 66 10 
AD 76 B2 
CD 7A B5 
FO 20 
20 14 
20 66 
A5 OA 
CD 78 B2 
FO 04 
E6 OA 
DO 03 
20 5A 
20 51 



DO D7 
A9 FF 
60 



106 

1068 

1069 

106B 

106D 

106F 

1071 

1073 

1076 

1078 

1079 

107B 

818 

1082 
1084 
1085 
1086 
1088 
108A 

1 15 

F 
1 



m 

1098 



F5 

OC 



29 3F 
49 20 



■a 



F! 
93 
FF 



8 
A 
C 

Bl OC 
29 3F 



D 
9 
FO 
88 
C8 
Bl 
49 



29 20 
OA 

09 80 

51 °=g 



1099: 
109C: 
1Q9F: 
10A1 : 
10A4: 



91 
60 



Bl 
20 
90 



CB 
F2 
OC 
66 
OB 



B2 



AD 77 B2 
85 OA 
60 

18 §? » 

AO 



B2 



76 B2 



B2 



15 
10 

15 



712 
713 
714 
715 
716 
717 
718 

^1? 
722 
723 
724 
725 

m 

728 
729 
730 

m 

733 
734 
£35 



746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 



SS4 



SS5 



RTS 
DEC 



1 



SCCALCD STA 
SCCALCD2 kpA 



SS6 

SS61 

SS7 

SCHKY 

SL2 



SCD1 RTS 

SSTOP LJJA 

lb?HNG jll 

SCCHNG1 LDY 

SL4 DEY 



SL5 



SL6 



SCFLASH 

SL7 



SCCALCD 
SCVLPNT 
#1 

SCDRCT 
SCDRCT 



i 



#*3F 

SCHKYVLU 
SCVP 
SCWP 
SCCHN61 
SCNMBR 
SCHKYVLU 
SCD1 
5 

CCHNG1 
SCWP 
SCPB 
SS8 
SCVP 
SS9 
STOP 
CVTAB 
CVP 
CWP 
L2 
tt*FF 



;CPT 
:CVP 



!W 2 

#40 

SL3 

#*20 
SL4 
US 
#*FF 

<SAL),Y 

#*3F 

SCNMBR 

#*20 

SL5 



<SAL),Y 

#*20 

#420 

#480 

(SAL) ,Y 
(SAL) Y 



JSR RPH 

JSR SSLN 

JSR CHKNlW 

BCC SCD2 



BNE IF 
NO 

MATCH 



BEQ & 

CLC IF 
MOVE OK 

SEC IF 
WRAP 

! AROUND 

RST TOP 
RST BTM 



CHECK 
CURRENT 

PASSED 
TO SEE 
IF IT'S 
A VALID 
OPTION 
FROM 
.CURRENT 
MENU 



;BNE 
•BEG 



LNI 



IE tf N 

CALC 
NEXT 
LINE 



OTHERWS 
CHANGE 
LINE 
TO 

OPITE 
STR 1ST 



CHANGE 
NgRMAL 

INVERSE 

INVERSE 

nSrmal 



;TAKE 

ihbf 1 

AND 

Iturn 
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7Z S ^ Sigli'' Y 

774 m i~ 



88 __ 778 DE 

15 ??0 SCD2 Jsl $1 



<SAL,>,Y 



7 783 SSRCH 
A 784 



10 



10 



SL8 



SL? 



SCVP 
SCPT 



A5 OA 799 SSFNLN LDA SCVP 

CD 78 B2 800 CMP SCPB 

FO 08 801 BEQ SCO 

E6 OA 802 INC SCVI 

20 F2 10 803 JSR SSLN 

60 806 SCD3 RTS 
807 

20 03 10 808 SL10 JSR SCCALCD2 

20 F2 10 809 SCFNLN JSR SSLN 

FO F8 810 BEQ SL10 

20 OA 11 811 JSR SCPNUMB1 



20 51 15 814 SSLN JSR SCVTAB 

5 LDY #39 

6 SL11 STY SCHP 



1! 



|J7 
8^9 



SCD4 
<SAL),Y 



SCD4 



#*3F 
#420 
SL11 



0^ 82| SCPNUMB1 LDA <SAL),Y 

30 §lo Sio 

07 831 BCC SCD5 

§3 3 B M S tcM 

Fl 835 BNE SCPNUMB1 

§36 SCD5 INY 
837 INY 

OB 838 STY SCHP 

60 £j|g RTS 

C9 AO 843 CMP #*A0 

2 844 BEQ LFS1 

9 BD 845 CMP #"=" 

11 846 BEQ LFS2 

88 §31 B?b CFS2 

BF 849 CMP #>*?* 

09 850 BEQ LFS2 

3F 851 AND #*3F 

40 852 ORA #$40 

OC 853 STA <SAL),Y 

854 LFS1 DEY ' 

E5 855 BNE LFL1 

856 LFS2 RTS 

27 §58 LNNORM LDY #39 

OC 859 LNL1 LDA <SAL) f Y 



Page 



C9 AO 
FO 19 



FO 14 
C? 60 
29 3F 



81 



OA 

OD 93 B2 
91 OC 

DO DE 



A5 OA 
48 



60 

A9 C4 

20 95 11 

A9 00 

20 El 
60 



11 



A9 CF 
20 95 11 
20 DE 11 
60 



A9 C4 
20 BQ 
A9 00 



11 
11 



B2 



AD 8F B2 
48 

A9 OA 
20 05 15 
66 

20 14 12 
90 05 



931 
932 



LNS1 
LNS2 
LNS3 



CMP «*A0 

BEQ LNS2 
CMP 

m m* 

BEQ LNS3 

CMP HfgO 

AND #*3F 

STA WS 

ee on 

LA 

WS 



DE 
BN 
RTS 



(SAL) ,Y 
LNL1 



SCODSPLY LDA SCVP 
PHA 

LDA »4 

JSR TOUT 

bK W" 

JSR COUT 
PLA 

JSR SCVTAB1 
RTS 



GTDRVD01 L 
J 



*"D" 
SCGTDRV 
LDA #0 
JSR SCDINSRT 
RTS 



GTDRVD02 LDA #"0" 

JSR SCGTDRV 

JSR SCDINSR1 
RTS 



BLNKIND L S( 



RTS 

SCGTDRV STA 



SETDRV 
DA #0 

SR SCDINSRT 



ETPRV2 
;ETDRV 



SS12 



S 
JSR 
JMP 

j 

IP 

LDA 
TAX 
CMP 
BEQ 
CMP 
BNE 
LDA 
STA 
LDA 
LDY 
JMP 



LDA 
STA 
LDA 
LDY 

STRCRNT2 STX 
ASLA 
ASLA 
ASLA 
A 



RTS 

SCDINSR1 LDA 
SCDINSRT PHA 



jjRVLETTR 

TOUT 

SCDIND02 

gSO 

tor 

SET DRV 
DRVLETTR 

»"D" 
SS12 
*»"0" 

K 

CTRK 
POS 

S?8cRNT2 

CTRKD 

CTRK 

PDS 

PDD 

DRVLETTR 




DRVLETTR 



_DA #10 

3SR TOUT 
PLA 

JSR SCDINDO 

BCC SSI 4 



;AND 
TURN 
| IT BACK 

|S8rmal 



DISPLY 
SCRN 
OPTION 
AT BTTM 
OF SCRN 

THEN 
RESET 
SCREEN 
PITNS 

DLT=DUP 

GETDRV 

DISPLAY 

INSERT 

BLANK 

DFT=ORG 



INTO 
;DUP 

IeIIhER 
ORIGNAL 
OR DUP 
DRIVE 



;RTRN 



UP 
gNAL 



;SET UP 



111? 



5 INSERT 
•OR 
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A9 OE 946 LDA #14 j DISPLAY 

20 05 15 947 JSR TOUT BLANK 

tf JS is m 5814 Ut ISSt 

AO OF 950 LDY #15 



LDA DRVLETTR 

CMP #"0" 

BEQ SSI 3 
I NY 

12 955 SS13 JSR SS17 

f45r 

R KY6ET 



20 28 OD 958 JS 
•SO |59 RT 

AD 8F B2 961 SCDIND02 LDA DRVLETTR 

iO OF 962 LDY #15 ;INV 

^63 BNE SSI 5 ' 

:DINDO LDY #11 ;FLSH 



I: 



C9 CF 965 SSI 5 CMP #"0 
FO OA 966 3EQ SSI I 

fONLY 



CMP 



i 



ssi; 

#"D' 

CDINERR ; FLSH ! 



72 SSI 6 
973 SSI 7 



05 15 974 JSR TOUT 

m m 

SCDINERR SEC 



5>80 6ETRKSAH LDY #2 ;ADD=HLF 

DO 02 981 BNE GETRKS1 

AO 04 982 GETRKS LDY #4 }1 

A9 00 983 GETRKS1 LDA #0 ;Q 

A2 88 984 LDX #*88 34 

80 88 B2 985 STA STARTRK DFLT 

8E 89 B2 986 STX ENDTRK DFLT 

8C 8A B2 987 STY STEP DFLT 

A9 OD 988 LDA #13 ' 

20 53 15 989 JSR SCVTAB1 

A9 00 990 GETRKS3 LDA #5 

85 OB 991 STA SCHP 

A9 IE 992 LDA #30 ;6ET 

20 05 15 993 JSR TOUT START 

B2 994 LDA STARTRK END Sc 

12 995 JSR GETNUMB STEP 



996 BCS GETRKS3 TRACKS 

8 B2 997 STA STARTRK FROM 

A 15 998 JSR SOW USER 

F 999 GTL2 LDA #31 

1000 JSR TOUT 



>TRK 



MI 



1881 

1010 



JSR SIS) 
GTS1 CMP START?! 



GTS3 




15 1020 GETNUMB JSR SHTAB 
B2 1021 GNBL STA TRACK 



RHTAB NUMBER 

1023 JSR TRKOUT 

1024 GNBL 2 JSR KYPRMPT 

1025 CMP #*." jDECML? 

1026 BEQ GETDEC 

1027 JSR GNBCHKD 

1028 CMP #*B0 

\m m p : 

1031 BCS GNBL2 
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12 
12 

1* 



AE: 

:l : 
:2: 
3: 

t- 
2BB\ 
12BD: 
12BF: 
12C2: 
12C5: 
12C8: 
12CB: 
12CE: 
12CF: 
12D0: 



B2 



AD 8B B2 
4A 

20 7C 0E 
AD Ar 
C9 B< 
90 02 
BO 

A4 B2 
AD 74 B2 
8D A5 B2 
20 33 OE 
Ajj 9F B2 

A 

4C 93 12 




12DC: 



Fi 
2: 
E5: 
E7: 
EA: 
12EC: 
12ED: 
12EF: 



12F2: 
12F5: 
12F7: 
12FA: 

IP!! 

1301: 
1304: 
1307: 
13QA: 
130C: 
130E: 

1311 : 
1313: 
1315: 
1317: 
1319: 
131A: 
131C: 
131D: 
131E: 
131F: 
1322: 

323: 
325: 
328: 

lie; 

32F: 
332: 
335; 

3§A: 
33D: 
33F: 
340: 
342: 
343: 
346: 
347: 
134A: 
34D: 
350: 



1356: 

35B: 
35D: 
35F: 



A9 AE 
20 20 16 

10 




D9 65 
FO 06 
88 

10 F8 
4C DF 12 

AD 8B B2 
29 FC 
8D 8B B2 
98 




16 

20 70 14 
AD 8B B2 
29 03 



58 BE 

C9 8D 



FO 
C9 



DO 09 

BO 01 
18 
68 
68 



12 



8B B2 



A9 23 
20 36 13 
8C 8C B2 

A? 2D 

20 36 13 
8C 8E B2 



20 05 15 

18 11 15 

28 

90 01 
88 

|C 98 B2 

20 05 15 
20 07 16 
20 OC OD 
C9 8D 
FO 17 
AO 25 
C9 CE 

18 05 
KB 

8C 98 B2 




1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 

'8 

051 
052 
1053 
1054 
5 
6 

1057 
1058 
1059 
1060 



1063 
064 
065 
066 



GNBS2 



BETDEC 

6DL1 
6DL2 

6DS1 



i98 



GNBCHKD 



GNBCS1 
GNBC3 



GNBD 
GET SYNC 

6ETT1ME 
6ETYSN0 

6SS1 
6SL1 



TRACK 



IP 4 
tttBO 

CNVDEC+3 
KYVALUE 
" 1 DEC+4 
DH 
'HEX 



JMP 6NBL 

LDA TRACK 

AND #3 

BNE GDL1 
LDA 

JSR COUT 

JSR KYPRMPT 

JSR GNBCHKD 

CMP LTQ.Y 

BEQ GDSi 
DEY 

BPL GDL2 

JMP GDL1 

LDA TRACK 

AND #*FC 
TRACK 



'A 
SR 

JSR TRKOUT 
LDA TRACK 



V 



LDA 




IBL2 
GDL1 

#*8D 
GN8CS1 
#f§8 
GNBD 

GNBC3 



TRACK 



#35 

GETYSNO 
SYNCFL6 

«45 

GETYSNO 
TIMEFLG 



GSS1 

WS2 

TOUT 

RHTAB 

KYPRMPT 

»$8D 

GSS3 

»37 

«"N" 

GSS2 



GSS2 



Y b 

>Li 
12 
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140E: 60 



RTS 



140F: 
1411 : 
1414: 
1417: 
141A: 

m 



14 
142 

142 
142 
142 
143 



6: 
9: 



1432i 
1434: 
1435: 

m\ 
\m 

143E: 

m\ 

1443: 

m\ 
m\ 
m\ 

1450: 
1453: 
1455: 
1458: 



1461 : 
1463: 
1464: 
1467: 
146A: 
146D: 
146F: 

1470 
1473 
1475 
1478 
147? 
14 



1482 
1484 
1485 
1487 



148D 
1490 
1492 
1494 
1497 

1498 
498 
149E 
14A1 
14A3 
14A6 
14A? 
14AA 
MAC 
14AE 
14B1 
14B3 

\W 

14B? 
14BB 
14BD 



A9 00 
8D 98 B2 
20 A7 13 
20 43 14 
C9 40 
BO 05 
A9 AO 

i 9 

DO 



••2 

98 B2 
90 
E7 

20 A5 13 
60 



AO 



4E 14 

20 16 
64 14 



20 4E 14 

tt ,c 

2g 64 14 

A5 OA 
8D 9D B2 
A5 OB 
8D 9E B2 
AD 9B B2 
20 53 15 
AC 9C B2 





iC 

84 OB 
60 

AD 9D B2 
20 53 15 
AD ?E B2 

85 OB 
60 

20 79 14 
A9 DB 
20 20 16 
60 

AD 8B B2 
85 16 

K» 

46 16 
6A 

46 16 
6A 



1261 
1262 
1263 
1264 




EPCLEAN 
EPCL1 



EPCS1 

EPBOUT 
EPOUT 



EPIN 



EPR1 



EPR2 



TRKOUT 



TRK0UT1 
TRK0UT2 



TRS1 
RPMOUT 



NMBFOUT2 



LDA ttO 
STA WS2 
JSR EPCALC1 
JSR EPIN 
CMP «*40 
EPCS1 
»*A0 

ii sap 
LW «?• 

EPCLl 
EPCALC 



PHP 

LDA «*A0 
PLP 
PHP 
PHA 

JSR EPR1 
PLA 

JSR COUT 
JSR EPR2 

JSR EPR1 

LDA <SAL),Y 
PHA ' 

JSR EPR2 
PLA 
RTS 

LDA SCVP 

STA EPTSV 

LDA SCHP 

STA EPTSH 

LDA EfV 

1CVTAB1 



JSR 
LDY 

STY SCHP 
RTS 
LDA EPTSV 
JSR 3CVTAB1 
1PTSH 
:CHP 



LDA 
STA 
RTS 



JSR 
LDA 
JSR 
RTS 
LDA 
STA 



'A 
LSR 
RORA 
LSR 
RORA 

m 

LDA 
CMP 
BEQ 
JSR 
RTS 



TRK0UT1 

COUT 

TRACK 
HXL 

HXL 



HXL 



WD 

TRS1 
COUT 



JSR SHTAB 
tt20 




LDX HXH 

JSR HXAOUT 

LDA ,HXF 

STA W3L 

LDA #1 

STA W1H 

LDA MO 

STA W3H 

STA W1L 
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20 D4 01 
AD A4 Bi 
C9 BO 

A9 AE 

a * k 

8D A<4 B: 
AD A4 B 
20 20 
60 



16 







B2 



B2 



30 
30 



16 



AC 14 
A9 00 



15 



E6 OA 
4C 51 
C6 OA 
A5 OA 
85 OA 



15 



00 B2 
OC 

01 B2 



60 

29 3F 
C9 3A 
BO 05 
C9 30 
29 OF 
60 
18 



1290 
1291 
1292 



TNTHCLCO 
TNTHSOUT 



HAOUT 

hxaqu" 

HOUT 
DOUT 



1 D0S1 
I D0S2 

I TOUT 

I 

\ 

I 

"1328 TOLl 



T0L2 



T0D1 

T0D4 

T0D3 

T0D2 
T0S1 

SCNV 

slv 

SCVTAB 
SCVTABl 



CHKNMBR 



CHS1 



JSR CALCF2 

LDA CNVDEC+3 

CMP **B0 

BEQ NMS2 
LDA 

JSR COUT 

LDA CNVHEX 

STA TEMPF 

LDA CNVDEC+3 

JSR COUT 
RTS 



LDX 



JSR OWHXAD 
JMP DOUT 
JSR CNVHD 
LDX #0 

►BO 



JDEC,X 

,r* »4 ' 

!EQ D0S1 

MP WS 

1EQ D0S2 

$ H 

(NE DOL1 

rSR RPH 



TXTABLE.Y 
TXTABLE+ 1 



; TENTHS 



jBlf LY 

;NUMBER 

iDlSPLY 
j DECIML 
NUMBER 




T0D4 
#"}" 
T0D3 

s?r 
w 

VMQDE 
RPL 

ftsr 

o 

OSl 

VMQDE 
T0L2 



jTEXTOUT 
; ROUTINE 

jpRINT 
; FORMTTD 

j SCREEN 

|B» I#t 



I 



INC SCVP 

JMP SOTAB 

DEC SCVP 

LDA SCVP 

TAY 

LDA LTS,Y 

STA SAL 

LDA LTS+l.Y 

RTS 

AND tt*3F 

CMP «*3A 

CS CHS1 

MP #*30 

AND tt*0F 
RTS 
CLC 



;CALC 
SCREEN 

Otab 

ADDRESS 



CHECK 
"A" FOR 
VALID 
DECIML 
NUMBER 

SEC=YES 
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1 6 1 F : 60 



1462 



RTS 



15 



COUT 



SCREEN 
;R0UT1NE 



B 



C9 17 
FO OA 



C9 
DO 

OA 



B2 



ill 



60 
88 

20 FB 15 
OA 

60 16 



16 
16 




C8 



CD 



C3 



C5 



C4 



BEG 
CMP 



INC 
JSR 



iCHP 
ICVP 



"AB 



PUSHTAB 



?WINDTOP 



SCUP 
LDA ttO 
STA SCHP 
JSR SCVTAB 



jWINDOW 




a******************************** 



26 19 



J? 



n 

AF 

00 2 



^OPTIOn'tA^lE'lOOKUp'* 
* * 



LTEDDO 



COPYDISK 
CHNGPARM 
RVSPEED 
CANDISK 
ERTDISK 



8 



3 

s 

! 6 7 
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16C4: 
16C6'. 

16C8: 
16CA: 



A7 OC 
Dl OC 



E2 
6B 



OC 
OC 



LTQT 



DA 
DA 



QU1TEDD 
E2 



a******************************** 



16CC: 
16CD: 
16CF: 
16D2: 
16D3: 
16D6: 
16D9: 
16DB: 
16DE: 
16E1 : 
16E4: 

It!?! 

16EA: 
16EC: 
16EF: 
16F1 : 
16F4: 

Iff i 
ffi\ 

1701 : 
1704: 
1707: 
1709: 
170B: 
170D: 



08 

A? 15 
8D 98 B2 



20 4C 17 
20 C9 OD 
A9 17 
35 14 



20 

AC 90 



AD 
20 

§8 



E3 



A9 17 
8D 9 

efii 

BD 8 
10 FO 
20 

*l 11 
E1P 

n 

A6 lg 



1 71 B : 
171E: 
1720: 
1723: 
1725: 
1727: 
1729: 
172C: 
172E : 
1731: 
1733: 
1736: 
1739: 
173B: 
173E: 
1741: 
1743: 
1746: 
1749: 

174C 
174D 
1750 
1753 
1756 
1759 
175B 
175C 
175E 
1760 
1763 

\ 7 ?ti 

176B 
176D 
176F 
1772 
1775 
1778 



Sill 



a 

90 
20 



AD 



8 

20 



2 
2 
B7 



B2 

88 

17 
16 




AD CA B2 



B2 



B7 
17 

A9 3B 
20 05 15 
AD 80 B2 
09 BO 
8D 73 08 
84 B2 
BO 

3A OB 
22 OD 



4C AF OC 
08 

20 FB 15 
20 99 17 
AD 98 B2 
20 53 15 
A9 IB 



1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 




*~DRlOi~ROUTINii~DRlOiRS~* 
* * 



TRKWRTER PHP 
LDA 



TRKWRT 



WPD 

CHKNW 

CN 



WP1 

WPOCHK 



WP2 



UPDO 



UP3 



WPEDO 



WPS1 



#21 
WS2 

WPEDO 
CHKESC 
#*17 
EPOUT 

WRITETRK 
TRKWRTER 



#23 
WS2 
CSLT 
*C08D,X 
*C08E X 
WPD 
WPEDO 



ws: 

DRVLETTR 



JMP WP2 




EDDURSN 

ct'rko 

WP3 

#*FF 

WPD 

PCRDCHK 

WPD 

MTROFF 

#59 

TOUT 

POS 

#*B0 

*873 

JJgSLOT 

*B3A 

KYCLR6ET 

CHN6SLTS 



PUSHTAB 

MTROFF 

WS2 

SCVTAB1 
#27 

WPS1 
#26 
TOUT 
BL 

KYCLRGET 
#f 
SI 

# 

COUT 
MTRON 
PULLTAB 



.1 IrLI 

;chp 



;WR1TE 
TRACK 
MANAGER 



i CHECK 
jPRTCTN 



;A=MESG 
;VTA6 



5WRTPTCT 

wur- 



GET 



iDY 



MESSAGE 



; DISPLAY 
WRITE- 
PROTECT 
DISK 
ERROR 
MESSAGE 
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20 82 17 
A9 15 
20 01 17 
60 

18 11 ?? 

A6 10 
BD 89 CO 



& 11 
BD 89 CO 
20 06 OE 



18 



CO 



9 P B 

a b » 

A9 00 
20 06 B7 
A9AA 

13 15 

>6 16 

20 OF B7 
BO EO 

OD 16 




A9 31 

20 3P J? 




DO 01 
60 




ft 3. 
20 05 1 
4C C8 1 




634 MTRONCW 

635 

636 

637 

MTRON 



JSR 
LDA 
JSR 
RTS 

JSR 
JSR 
LDX 
LDA 
TXA 



MTRON 
#21 

WPOCHK 



K7 

SETDRW2 

CSLT 

*C089 f X 



MTROFF 



ZX 



MTRONVD 



a e 

TAX 
LDA 
JSR 
RTS 

LDX 
LDA 
RTS 



;MOTORON 

CHECK 

ORIGNAL 
;DISK 

;TURN 
DRIVE 
MOTOR 
ON. 

| ROUTINE 



C CDRV 



*C089,X 
W3 



SLT 

C088.X 




MTROFF 

fjpON 
ARMY 

ETBV 
TRKWRT 
TRKV1 

ERSBTM 



;TURN 
MOTOR 
OFF 



;MOTORON 
AND 

j VERIFY 




*****x*********«*»****x***xx 
x CHANGE PARAMETERS OPTION x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxx 



CHN6PARM LDA 
JSR 

CPL1 JSR 



#49 



csi 

CL2 



#0 

PARMSET.Y 
PARMS.Y 



5 CHANGE 



;END 

[values 



CL2 

#' " 



CP 



LD N 



CS2 



49 
TOUT 
#19 

m 



#> FARMS 
#50 
#0 
CS2 

#>PREANLZ 

#1 

CS2 

#>CONTRLP 



W2H 

#0 

W2L 

PARMNMBR 



scStabi 

#53 
TOUT 



;SET UP 
PARM 
BUFFER 
POINTRS 



SCREEN 
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83D: 
83F! 
842: 



350 : 
853: 
856: 
858: 
85A: 
85D; 
840: 
862: 

§6p- 
86A: 
86C: 
86F: 
872: 
875: 
877: 
87A: 
87C: 
87f : 
880: 
882: 
884: 

1887: 
1889: 
188B: 

m\ 
m\ 

1895: 
1897: 
1899: 

189A: 
189C: 

its; 

18A3: 

!Ia7: 
18A9: 
1BAB: 
18AD: 
18B0: 
18B2: 
1884: 
18B6: 
18B9: 



IB: 

:C: 



18BD 

18BE: 

18C1 : 

18C2: 

18C4: 

18C6: 

18C8: 

18CB: 

18CD: 

18CF: 

18D1 : 



IjJ 53 15 
!0 05 15 



19 



BD 

U 



18 
0D 



19 
19 



18 



3F 18 



19 



19 



19 



C4 18 



19 



1720 

m 

1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1734 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 

W 

mi 

1767 
1768 
1769 
1770 

m 

1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 

IB* 



SC<J?AB1 



1801 
1802 
1803 
1804 
1805 



PSO 



PS1 
PS2 



PS8 



PS6 



PS7 



PS9 
PS5 



PS3 
PS4 



CK3 



CKD 
SCPMN 

W 



SCVLN 

SCVLI 
SP3 



SP1 

ZZ 
HBO 



HB 



HBS1 



LA 

JSR TOUT 



BE 



BE 



TS 



DO 
FLAG 
S2 



; CHANGE 
ACTUAL 
'PARMS 

STA PARMNMBR ; MANAGER 

~m 
m aw" 

BCC PS1 

JSR CK3 

BEQ PS5 

JSR KYSUB2 

CMP »*88 

DEC pIrVnMBR 

JMP PSO 

CMP t**8D 
PS7 

PARMNMBR 

JMP PSO 

CMP *» H Q" 

BNE PSO 

JMP CHNGPARM 

INC PARMNMBR 

LDA #0 

STA ZFLAG 

BEQ PS4 



LDY PARMNMBR 

STA <W2L) ,Y 

*SR SCPMN 

SR SCVLI 

LDY PARMNMBR 

BCC PS3 

w 

tf«8D 

PT 

CMP «*A0 

BEQ CKD 

CMP ♦»":" 

BEQ CKD 
CMP 

BEQ CKD 

CMP «"=" 



CKD 



LDX HO 

BEQ SP2 

LDX 8l 

LDA PARMNMBR 

LDY #25 

BNE SP1 

LDX m 

m if 3 

LDY PARMNMBR 

LDA <U2L) ,Y 

LDY H3Q 

STY SCHP 

STX I FLAG 
PHA 
LSRA 
LSRA 
LSRA 
LSRA 

JSR HB 
PLA 

D tttOF 

P #*A 

CS HBS2 

LDX I FLAG 

BEQ HBS1 

ORA **70 

BNE HBS4 

ORA tttBO 



jQUIT 



; CHECK 
FOR 

SPECIAL 
KEYS 



jDISPLY 
CURRENT 
PARMS 
ON SCRN 
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OA 



m 

1923 
1924 s 
1925: 



22 



19 



16 



8D 22 19 
20 28 OD 

5 If 



19 

19 
19 
9 
9 



1 

19 



li 



85 B2 



ill 



HBS2 



HBS3 
HBS4 



HDGET 



B9 



HBS4 



LDX I FLAG 
BNE HBS3 



SS 37 



OUT 



HBWRK 

KW 



HEX0K2 



NOTHEX 



E Hfc 

*»*C1 
ICC NOTHEX 
JMP **C7 
NOTHEX 

ms? 

BNE HEX0K1 
AND #*0F 

faff k 

STX HBWRK 
INC ZFLAG 
ASL HBWRK 
ASL 
ASL 
ASL 
ORA 
CLC 
RTS 
SEC 
RTS 



5 GET A 
HEX 
DIGIT 




RERCNTR DFB 

WERCNTR DFB 

MJRERR DFB 

BW"" 9 

I FLAG DF 

ZFLAG DF 

DFSIGN DFB 



;INURSE 
ZEROUT 
D1FFRNT 



a************************ 
* BACK UP A DISK OPTION * 
************************* 



COPYDISK LDA 
JSR 



#44 

TOUT 

GETRKS 

GET SYNC 

SCW 

GNC 

SCNV 

*»"[" 

sr 

TIMEFLG 
NBLCFLG 



13 



CD3 



CD1 



CD2 



i§R KYcTr 
LDA START 



:DjX>RSN 

GETTIME 
DRVCOUNT 
CD1 
H46 

KYCLRGET 
STARTRK 

DRVCOUNT 

S3? 

TOUT 

kyclrget 
Ie?drv 

RERRQRS 
RERCNTR 



BACK UP 
A DISK 
OPTION 

GET 

TRACKS, 
SYNC, ' 
AND 

» E 

INPUTS 

FROM 

USER 



;DISK??? 



|4r?ISl 

| DISK??? 

; RESET 
{ERRORS 
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8D 20 1? 
20 BD 1? 
20 9D 1A 
AD 85 B2 

20 05 15 
20 22 OD 



A? 
20 
20 
AD 



88 .< 

1 1A 
19 
20 35 14 
76 13 
"8 B2 
4 



8D 
90 



4C BC 15 

CE IE 19 
DO 11 
A9 D2 
8D 20 19 
4C E4 19 
20 OD 16 
20 82 17 
20 FF 16 
AD 88 B2 
20 OC 
A9 12 
20 35 
AD 8E 
FO 06 



B7 

14 
B2 



58 P !? 

:7 
6 



ins isdth 



B2 



AD C8 
8C A9 
8D AA B2 
20 99 17 
60 



8 



E IF 19 
17 



19 



8D 

4C 4D 1A 
20 OD 16 
20 82 17 
20 EA 16 
AD 1A 63 
8D IF 19 
B2 




20 C9 OD 



JO 21 

18 8? 24 

20 04 IB 
90 10 
AD 8D B2 
FO OB 
C9 02 
FO C4 

n u " 

BO AC 
20 99 17 
60 



J 



CD4 



TR5 



TRKR 



TR4 



TR3 



TUI 
TWE 



TRKUW 



TW1 
TW2 



TW3 



TA MJRERR 
SR TRKR 
SCCOPY 
DRVCOUNT 



JSR 

b m 

JSR TOUT 

jsr kyclr6et 

jSr 1 Ie?drv 

jsr trkwm 

lda mjrerr 

jsr epqut 

jsr ntrkcalc 

sta startrk 

BCC CD1 

JMP PDONE1 



TWD 



DEC 
BNE 
LDA 
STA 
JMP 
JSR 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 

m 

JMP 
JSR 

BCS 
LDY 
LDA 
STY 
STA 
JSR 
RTS 

DEC 
BNE 
LDA 
STA 
JMP 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
JSR 
LDA 
BEG) 
JSR 
JSR 
LDA 
CMP 

m 

JSR 
JSR 
JSR 

m 

JSR 
BCC 

EM 
CMP 
BEQ 

m 

BCS 
JSR 
RTS 



RERCNTR 
TR4 

^ II p II 

MJRERR 

TR3 

ERSBTM 

MTRON 

WP1 

STARTRK 

WlG 
TR1 

^CCDUMP 

fc 

TR5 
TRKLL 

m 
wm 



WERCNTR 

TW2 

#"W" 

MJRERR 

TWD 

ERSBTM 

MTRON 

CHKNW 

WERRORS 

WERCNTR 

STARTRK 

SYNCTRK2 

WSTSYNC 

TRKWRT 

MJRERR 

fl-R* 

TWD 

#*16 

EPOUT 

CHKESC 

TDUMFV 

FNDLN6TH 

TW 

DSPLYD1F 
TWD 

NBLCFLG 
TWD 

ISl 

TWE 
MTROFF 



;READ 

IdiIplct 

;DISK??? 



;DSPLY 
•ECODE 



;READ 
ERROR 
CNTR 



;READ 

ORIGNAL 

TRACK 
{MANAGER 

jDISPLY 
;INV-R 



(analyze 

;IF ERR 
THEN 
REPEAT 



;WRITE 
ERROR 
•CNTR 

jWRlTE 
! MANAGER 



WRITE 
TRACK 

Vrack^ 

LENGTH 
WITH 



;DO 
5 IP 

•NEEDED 

;TRACK 
•DONE 



1A51 : 
1A53: 



A9 
20 



1A56: 20 4F 
1A59: 20 07 



15 
15 
16 



GNC 



LDA #43 

JSR TOUT 

JSR SLV 

JSR RHTAB 



SK 
SER 

IF 
•TRACKS 
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#37 
UIS2 



05 



?8 B2 



9 8 
SI 04 

KH 

C8 

8g 8D B2 

A? 37 
20 05 15 
AD CI B2 

Id C2 B2 



A9 20 
85 OB 



A? A4 



15 



15 
15 



14 




A? B2 
C7 B2 
IB 



6NCL1 



V 

6NCS2 



GNCS3 



GNCS4 
SCCOPY 



DSPLYDIF LDA 
JSR 
LDA 
STA 



;c 

IE 
LDA 
CMP 
BCC 



TOUT 

RHTAB 

KYPRMPT 

#*8i) 

GNCS3 

GNCS2 

#"A" 
GNCS2 

#"M" 

GNCL1 

US2 

TOUT 
»'[" 

COUT 

WS2 

#0 

#37 

6NCS4 

#38 

GNCS4 

NBLCFL6 



#55 

TOUT 

TRKDSL 

*2 

*4 

JRKDSH 

TRKTSH 
*5 

SCHBLN 
SCHBLN 



iCHBLN 
"HBLN 
SCHBLN 



#56 

P 

*2 
#*93 
*3 
#*AF 

IBhbln 

SCHBLN 
#57 
TOUT 
#20 

SCVTAB1 
#12 
SCHP 
TRK0UT1 
#32 
SCHP 
ft"* 5, 
IUT 



TRKLH 



!KLL 
221 



H21 

SCVTAB1 

#32 

SCHP 




OLNGR 
TTLENL 
TRKLL 
DLNGR 



NEED 

NIBBLE 

COUNT 



;N0! 

;AUTO 
I COUNT 

vsm 

| COUNT 



0=NO 

!=AUTO 

2=MANUL 

SCREEN 

D1SPLY 

WHILE 

DISK 

BACK UP 

MANAGER 



jDISPLY 
5 LINES 
0£ 

START 
TRACK 



jDISPLY 
j2 LINES 

| END 
jTRACK 



jDISPLY 

jDISPLY 
ORIGNAL 



jDISPLY 
THE 

DIFRNCE 
BETWEEN 
j&RlGNAL 

jDuPLCT 
TRACK 
LENGTHS 



Page 



30 



D 

A 



37 
AO 

25 19 



20 20 16 



A9 30 
20 20 
A9 DB 
20 20 
AE 
20 



§5 



18 
60 

A9 BE 
8D 25 
20 20 
A9 AE 
8D 20 



38 
60 



IS 
1? 



DO 
A 
6 

20 
E6 



04 



B 
4 

C 
Bl 
A8 
A5 05 
C9 AF 
DO 08 
A5 04 
C9 FF 



02 
00 

C§ 
02 



16 
16 
19 



19 
16 

19 

C7 82 



Al 

38 

ED A9 B2 
A8 

AD C8 B2 
ED AA B2 
4C 73 IB 
A9 BC 
8D 25 
20 20 
A9 CC 
8D 20 
AD A9 B2 
38 

ED C7 B2 
A8 

AD AA B2 
ED C8 B2 
8C 9F B2 
8D AO B2 
20 E3 14 
A9 DB 
20 20 



19 
16 

19 



16 



A9 OC 
8D 98 B2 
A9 AO 
20 20 
20 20 
AO 
20 





16 
16 

16 



IB 



E6 04 
DO 04 
E6 03 
E6 05 
CE 98 B2 
DO Dl 
A9 DD 
20 20 16 
60 

48 
4A 
4A 
4A 
4A 

CO 02 
20 D4 IB 

68 

29 OF 
CO 01 



2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 

W>1 
2073 

2074 

2075 

m 

2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 

m 

2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 

Ip24 

2\2 
2129 

Hi! 

2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



DLNGR 



OLNGR 



DDL2 



SCHBLN 



SCCL1 



SCCS1 



SCCL2 



221 



BNE 
LDA 
STA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
STA 
CLC 
RTS 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
SEC 
SBC 
TAY 

btt 

JMP 

LDA 
STA 
JSR 
LDA 
STA 
LDA 
SEC 
SBC 
TAY 
LDA 
SBC 
STY 
STA 
JSR 
LDA 
JSR 
SEC 
RTS 



INC 



OLNGR 
tttAO 
DFSIGN 
COUT 
»*30 
COUT 
»"[" 
COUT 
" 

MJRERR 



DFSIGN 
COUT 

U H II 

MJRERR 
TRKLL 

TTLENL 

TRKLH 

TTLENH 

DDL2 

»"< fr 

DFSIGN 

COUT 

«"L" 

MJRERR 

TTLENL 

TRKLL 

TTLENH 
TRKLH 

CNVHEX 

CNVHEX+1 

HQUT 

»"[" 

COUT 



LDA #*C 

STA WS2 

LDA 8" ■ 

JSR COUT 

JSR COUT 

LDA tt" " 

JSR COUT 

LDY #0 

LDA <*2>,Y 
PHA 
I NY 

LDA <*4) ,Y 
TAY 

LDA *5 

IP #*AF 

IE SCCS1 

LDA *4 

#*FF 
SCCS1 

m 



LDY 
PLA 
JSR 221 
INC *2 



4 

;CCL2 



INC *5 

DEC US2 

BNE SCCL1 

LDA #■]" 

JSR COUT 
RTS 

PHA 
LSRA 
LSRA 
LSRA 
LSRA 
CPY »2 
JSR 21 
PLA 

AND »*0F 
CPY «1 



;INV-0 
;< EQUAL) 

; FORCE 
GOOD 
| ERROR 

i FORCE 
■GOOD 



;DUPLCT 
•IS LESS 

{LENGTH 
I ERROR 



;DISPLY 
A LINE 
OF 
RAU 
TRACK 
BYTES 



PROCESS 
A RAU 
DISK 
BYTE 
& THEN 
DISPLY 
IT ON 
SCREEN 
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— End assembly — 
4079 bytes 
Errors: 



jINVRSE 

Z3 
Z4 

»*A ;N0RMAL 
Z5 
11*80 

2159 Z5 ORA »*C0 



2160 

2161 SBC *? 
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:ASM 



1D0O: 4C FD ID 



D03: 



A? 1C 
!0 FF 1 
26 1 




D20: 
D22: 
D23: 
D25: 
D27: 
D28: 
D2A: 
D2D: 
D30: 
D33: 

D3B: 
D3A: 
D3D: 
D3F: 
D42: 
D44: 
54? : 
D49: 
D4B: 

m 

D53: 
D55: 
1D57: 
1D58: 



E6 01 
CA 



F6 
53 
57 



£8 

2C 50 CO 
A9 14 
20 4D 15 

nn 

A9 DE 
1A 16 



20 

A? 01 
8D 80 
A? 02 



IB 



C: 
1D5F: 
1D61: 
1D63: 
1D66: 
1D69: 
1D6C: 
1D6E: 
1D70: 
1D72: 
1D74: 
1D76: 
1D79: 
1D7C: 
1D7F: 
1D81 : 
1D84: 

1D8A: 



85 
20 
A4 
B9 
AO 
91 

D 

H 

AD 

2 i 



2 

A9 00 



85 03 
A9 05 



8D 80 
20 B4 



EE 

AD 80 
C9 9E 



14 



IE 



ID 



C IE 



03 
F9 
80 
OF 
E8 
8 B2 



IE 



OC B? 
03 B7 



IE 
ID 

20 97 ID 
90 03 
20 D3 ID 
80 



IE 
IE 




1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 

SI 
All 

m 

1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 



IP. 



IP 



**************************** 

* ESSENTIAL DATA DUPLICATOR 
VERSION 4.2 STANDARD/PLUS 
6502 ASSEMBLY SOURCE CODE 
COPYRIGHT <C> 1986 
ALL RIGHTS RESERVED 

PRINTED APRIL 23, 1986 
**************************** 

*********************** 

* OPTION 4 & 5 MODUAL * 

* *1DQ0-*1FFF * 
*********************** 

FLAG DS *1DQQ-FLAG 

CERTDISK JMP CDISK 

******************** 

* SCAN DISK OPTION * 
******************** 



SCANDISK LDA 



SCNL1 



SCNL2 
HL1 



SCNL3 



SCNL4 
SCNS1 



t»28 

TOUT 

GETRKSAH 

GET SYNC 

GTDRVD02 

MTRONCW 

#*40 

$1 

#0 

*0 

tt$20 
<*0>,Y 

SCNL1 
*1 

SCNL1 
*C053 
*C057 
*C050 
»20 

SCVTAB1 

f§3r 

COUT 

HGRVPOS 
#2 

UIZPAGE2 

HRSCV 

WZPAGE2 

LTSCPT,Y 

#39 

<*0),Y 
M3 

BIsRVPOS 
WZPAGE2 

ffiSlfe 

SYNCTRK2 

TDUMPP 

#0 

$2 

4t$60 

*3 

#5 

H6RVP0S 

HRSCV 

SCANBITS 

SCNS1 

HRSDH 

HGRVPOS 

HGRVPOS 

*»*9E 



;SCANDSK 
[MANAGER 

MOTOR 
;ON 




SETUP 



EEN 



5 DUMP 
TRACK 
FROM 
DISK 



; ANALYZE 
AND 

DISPLAY 
TRACK 
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1D8C: 
1D8E: 

SBli! 

1096: 



1D9E: 
1DA0: 



1DA9: 
lDABs 
1DAC: 
J DAE : 

1 D§3 : 



DO El 



13 
15 



IE 



IE 



IE 



AO 80 IE 
29 07 
OA 
A 

5 QE 
AD 80 IE 



8? 



29 F8 
4A 
4A 

bI 4C IE 
85 00 
B9 40 IE 



7*4 IE 

n 



74 IE 




1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

176 

176 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 



i 



BNE 
JSR 
BCC 
JSR 
RTS 

SCANBITS LDX 
LDY 



SBL1 



SCN 
NTR 
SCN 



PDONE 



NTRKCALC 



SBS1 



SBS2 



HRSCV 




LDA 
AND 
A SLA 
ASLA 
STA 

AND 

LSRA 

LSRA 

TAY 

LDA 

STA 

LDA 

SEC 

m 

RTS 



SBL1 
SYNC 
»2 



HGRVPOS 
»*07 



Mm 

H*F8 



LTVHRS.Y 
*0 ' 
LTVHRS+1 ,Y 

WJPAGE1 



HRSDH 



HRSDHS 



LDA CTRK 
CMP #«8D 

KIB HS 




STA 
I NY 
I NX 
LDA 
ORA 
STA 
RTS 



LTHHRS,X 
<$0>,Y 
<40),'Y 

LTHHRS,X 
<*0> ,Y 
<*0) Y 



;ANALY2E 
THE 

TIMING 
BITS 

IN 

BUFFER 



;CALC 
HGR POS 
VERTCL 



j DISPLAY 
[RESULTS 

ifpsg... 

TIMING 
BIT IS 
PRESENT 
THEN 
TURN ON 
THAT 
BIT ON 
SCREEN 



ft****************************** 

* CERTIFY & ERASE DISK OPTION * 
x*x*«****x**#**s*************** 



CDISK LDA #40 

JSR TOUT 

JSR GETRKSAH 

JSR BLNKIND 

JSR MTRON 

JSR SETBS 

LDA START RK 

JSR ARMfJ 

JSR TRKUIRT 

JSR ERSBTM 

tf if^RTRK 

CEL1 JSR ARMV 

JSR TRKUIRT 

JSR TRKY1 

bc^ ckl 



; CERT I FY 
AND 
ERASE 
DISK 
MANAGER 



; SETUP 
■FLAG 



RR 
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1E2F 
1E31 
1E34 
1E37 
1E3A 

1E41 
1E43 
1E44 
l|45 



1E54 

1 

1E5E 
1E60 
1E62 
1E64 
1E66 
1E68 
1E6A 
1E6C 
1E6E 
1E70 
1E72 



A9 D8 1841 LDA *"X" j INSET 

8D 96 B2 1842 STA FLG FLAG 

1843 CES1 JSR EPOUT 

1844 JSR NTRKCALC 

1845 BCC CEL1 

11 1 ck82 

1850 CES2 TYA 

JSR TOUT 
PDONE 




ft 



TS 

*~HGR2 BAii~ADDRiii~TAiLl"* 

1858 LTVHRS DA isDDO 
50 5D 1859 DA *5D50 

I860 DA *5CDf 




1861 DA *5C! 

*5R 
*5F2I 




28 5C 1869 DA 

80 5F 1870 DA *5F 

00 5F 1871 DA *5Ft 

80 5E 1872 DA *5E80 

00 5E 1873 DA *5E00 

80 5D 1874 DA *5D80 

00 5D 1875 DA *5D00 

80 5C 1876 DA *5C80 



00 5C 1877 DA *5C00 



1 88J *~HrRii"TAiLi~FOR~BIT~p6ilTI ^ 

1E74: 18 00 1882 LTHHRs"~~DFeT"*1 8^*00 ~ 
E76: 20 00 1883 DFB $20 $00 

1E78: 00 01 1884 DFB *00 *01 

1 E7A : 00 04 1885 DFB *00 $04 

1886 

1887 * * 

18|| *_HIRES PATTERN/BOTTOM SCREEN # 

1E7C: 18 18 3C l||0 LTSCPT~~ DFB *ii,*ri,*3C~ 

1E7F: 00 1892 SYNC DFB 

1E80: 00 1893 HGRVPOS DFB 

— End assembly — 
4737 bytes 
Errors: 
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:ASM 



2100: 4C 32 21 



20 0C IF 




28 55 



20 OC IF 
A9 15 

14 
11 

20 78 1? 
A? 00 
20 06 B7 

•» K. . . 
9 B 




20 DO 10 



20 
20 



20 DO 
20 8B 
A? IP 
20 FF 
20 B3 
60 



3 



A? 00 
20 2C 22 
A? 88 
20 2C 22 
A? 00 




168; 

1688 
168? 
1690 

m 

1693 
1694 



I?: 



**************************** 



6502 ASSEMBLY SOURCE CODE 
COPYRIGHT <C> 1986 
IGHTS RESERVED 
ICO MI CROWARE 

ANTHONY SCHNAPP 
'RINTED APRIL 23, 1986 
a*************************** 




a********************** 

s opT ja9o8-t2SFP ODUAL : 
*********************** 



FLAG 
DRVEXAM 



DS 
JMP 



*2100-FLAG 
DEXAM 



********************** 

* DRIVE SPEED OPTION * 
a********************* 



DRVSPEED JSI 



DRLl 




;h|ckmem 

GTDRVDOl 
MTRONVD 

AB1 
IND02 



? LPNTR 

KSPD 
SPDLINE 
KYDN1 
DRLl 



************************ 

* EXAMINE DRIVE OPTION * 
************************ 



DEXAM 



JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
LDA 
JSR 



CHECKMEM 
021 

g?!Irvdoi 

MTRON 
ttO 

ARMY 
#22 
TOUT 
DIND02 
3 




JSR 
JSR 
JSR 

M: 
JSR 
JSR 

M 

LDA 
JSR 
JSR 
RTS 



ESC 

W 
EXMSPD 
CHKESC 
SSFNLN 

CHKESC 
SSFNLN 
BLDOVR 
CHKESC 
SSFNLN 
SPDARM 
#25 

PDONE 



SPDARM 



«o 

JSR CTRKW 
LDA «*88 
JSR CTRKW 
LDA m 



MANAGER 

5 

ON 



SET 

BUFFER , 

th!P 



jMANAGER 
(EXAMINE 



ON 



jABILITY 

mm 

I SPEED 
; COUNT 

; BLEED 
iOVER 



jfind 

THE 
SPEED 
OF 
ARM 
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21S7: 20 06 B7 

B ! I ® v " 

21AO: 60 



21A1: A? 88 
21A3: AO 04 

vm % 
m 



21 B8: 



21 



21 
14 



00 

06 B7 
(0 2F 22 
i? 01 





.9 04 
!0 2C 22 
A5 12 




84 OE 
20 06 B7 
20 12 B7 

58 81 

DO 07 
A? 19 




A9 00 



756 

m 

759 
760 

761 CTRKS 
762 



CTS3 



80 



BLDOVR 



CTRKDO 
CTL1 



812 

814 CD1 
815 

816 VTRK 

817 VTRK2 

818 VTRK3 



821 



VD1 



825 

826 VD2 
827 



W2 



837 

111 

§4? EXMSPD 



JSR ARMV 

JSR ARMSPD 

JSR HXAOUT 
RTS 

LDA tt*88 

LDY #4 

JSR CTRKDO 
WZPAGE1 

MP »*FF 

EQ CTS3 

LDY #2 

JSR CTRKDO 

LDA WZPAGE1 

JSR TRKOUT2 
RTS 

LDA DO 

JSR ARMV 

JSR CTRKU2 

LDA Ml 

LDY #0 

#2 

TRKW 
1 



LDA 
CLC 




SR VTRK 

LDA #0 

JSR VTRKL 

LDA WZPAGE2 

J^g DCPOUT 




J! 

CMP 

BNE CD1 
STA WZPAGE1 



AGE2 




*»*FF 
UZPAGE1 



JSR TRKV2 



TRKV 



BNE VD2 



AGE1 



025 



ADC UIZPAGE2 

STA UIZPAGE2 

JSR EPBOUT 
RTS 



m 



JSR 
LDA 
LSRA 

LDA CTRK 

QRA «*AA 

STA *8303 

JSR TRKWRT 

JSR EPBOUT 
RTS 

LDA ttO 



jTHEN 
■DISPLAY 



i LOCATE 
THE 

HIGHEST 



mi 



BL 



: CHECK 
FOR 
BLEED 
OVER 
ABILITY 



COMMI 
ROUTINE 
TO 

VERIFY 
A KNOWN 
TRACK 



(TRACK 
; CREDIT 



I ROUT 
THAT 
WRITES 
A KNOWN 

I TRACK 

1?e?1ting 

•PURPSES 



: EXAMINE 



Page 



2247 



227A 
227D 
2280 
2282 
2283 
2285 
2287 
2288 
228A 
228B 



2291 
2293 



I2D4 
!202 



AO 07 
99 15 00 
88 

10 FA 



ID 
10 

8D 97 B2 
20 86 23 
20 26 14 
AD A4 B2 
29 OF 
85 OE 
20 9D 22 
CE 97 B2 

JSfg 

85 15 
AO 04 
46 17 
66 16 
6 15 

F7 



:0 

A5 18 
38 

E5 IB 
BO 04 




5 

5 
18 
F§ 
65 
D8 
C9 10 
90 09 
29 OF 
18 



15 



gift 



71 23 



20 C3 OD 
AD 9A B2 
C5 1A 
90 21 
DO 10 
99 B2 



C5 19 
90 18 
DO 07 
AD 9F B2 
18 




AD 99 B2 
85 19 
AD 9F B2 
85 18 
AD 9A B2 
C5 ID 
90 12 

Ed 99 B2 
C5 IC 
90 09 
DO 16 
AD 9F B2 
C5 IB 
BO OF 
AD 9A B2 
85 ID 
AD 99 B2 
85 IC 
AD 9F B2 
IB 
OE 



1842 

1843 EXL1 

1844 

1845 

1846 

1847 

1848 

1849 EXL2 




1861 



4 



3 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 



EXS1 



CAS3 



CAS4 



CALCFLUC JSR 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 

CAS1 LDA 
STA 
LDA 
STA 
LDA 
STA 

CAS2 LDA 
CMP 

"CC 



CMP 



CMP 



STA 
LDA 
STA 
LDA 
STA 
LDA 
CLC 
SED 
ADC 
CLD 
CMP 
BCC 

ffl 



H7 

HXF ,Y 

EXL1 
LHXH 
«16 

WRKPNTR2 

CHKSPD 

EPBOUT 

CNVDEC+3 

«*0F 

WZPAGE1 

CALCFLUC 

URKPNTR2 

§2 L2 

HXF 

#4 

HXH 

HXL 

HXF 

|pd"oWh 

SSFNLN 
HDCF 

LDCF 
EXS1 

0156 

DCF 

HHXL 

LHXL 

HXL 

HHXH 

LHXH 

HXH 

SPDOUTFD 



CHKESC 

WSH2 

HHXH 

CAS 2 

CAS1 

WSL2 

HHXL 

CAS2 

CAS1 

CNVHEX 

HDCF 

CAS2 

WSH2 

HHXH 

WSL2 

HHXL 

IMF 

WSH2 
LHXH 
CAS3 

51?! 

LHXL 

CAS3 

CAS4 

CNVHEX 

LDCF 

CAS4 

WSH2 

LHXH 

WSL2 

LHXL 

CNVHEX 

LDCF 

WZPAGE1 



HXF 

tt*10 
CAS5 
#$0F 



DRIVE 

SPEED 

TO GET 

AVERAGE 

AND 

FLUCT 

THEN 

DISPLAY 

BOTH 



jACTUAL 
CALC 
FLUCT 
ROUTINE 
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8» 



B2 



B2 



B2 



B2 



14 



B2 



as 14 

1A 16 



1921 



1933 
1934 
1935 

m 

1938 
1939 
1940 
1941 
1942 
1943 
1944 



CAS5 



EXRDWT 



EXL4 



196; 
196! 



EXS2 



EXL5 



EXS3 



DCPOUT 



IC HXL 

i m 



HXI 
CAS5 
HXR 
HXF 
WSL2 



WSH2 

11 



wrkpntr 

WZPAGE2 
EXS2 
TRKWRT 



KV1 
BOUT 



WRKPNTI 
LTEA.Y 

wzpage; 

WZPAGE: 
KPNTI 



i 



RKPNTR2 
ETBDEX 
DCPOUT 

flWF 

EPBOUT 
EXL4 
WZPAGE2 
DCPOUT 

ZPAGE2 
.OUT 
»"%" 
COUT 



; CHECK 
READ 
WRITE 



it* 1 




!0 FF 14 
01 16 



20 F8 15 
A5 16 
17 

D7 14 
14 



A 



20 2B 
60 



AC 7F B2 
A9 AD 
99 A8 OA 
A9 19 
A2 00 
AC A6 B2 
84 00 
:9 OE 




SPDOUTFH 
SPL1 



197i 

1979 SPDOUTFD 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 

1988 CHKSPD 
989 



2005 
2006 



SPDLINE 




SHTAB 

NMBF0UT2 

|20 

RHTAB 
SHTAB 

!8h 

HXAOUT 
DCF 

CNVHAD 

TNTHSOUT 

SPL1 

TRKWRT 
TRKDS 
RPM 
EX 




•HEX+1 
WSH2 
tt*01 
TEMPH 
RPMOUT 
EPBOUT 



SPDLPNTR 
#" 

♦AA8,Y 
#25 

?EMPF 

8r 



DISPLAY 



NUMBER 
& FRCTN 
THEN 
"RPM" 

PLAY 
1MAL 
BER 
& FRCTN 

"RpM" 



|HfH 

SPEED 
; DRIVER 



DISPLAY 
DRIVE 
SPEED 
IN A 
"LINE" 
{FORMAT 
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2400: 
2402: 
2405: 
2408: 
2409: 
240 B: 
240 E: 
2411 : 



2418: 
241A: 
241 C: 



2426: 
2429: 



DO 30 

AD A7 B2 

OA 

OA 

18 

6D A6 B2 
A8 

A5 04 
C9 OC 
90 01 



CO 04 
90 16 
CO 22 



6 

AO 
DO 
AO 




8A 
29 01 




OB 



B 

C9 AO 

49 80 
99 A8 OA 
Bjj 7F B2 

4 
A 
22 



DO E6 
60 

AO 03 
B9 61 B2 
99 02 00 
88 

u 

8D 9F B2 



F7 

FA OE 



AO B2 



A9 FF 
AO 01 
20 7D 15 
A9 D5 

83 



8D 01 83 
60 

AC 92 B2 
B9 48 B2 
00 



2014 
2015 
2016 



SPS1 



SPL2 



SPL3 



SPS2 
SPS3 



CALCRPM 
CAL1 



2031 
2032 
2033 
2034 
2035 
2036 
2037 

181? 

2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 



2057 SETBE 
2058 
2059 




JO' 
2064 

2065 

66 SETBDEX 





HP 



TEMPF 

W3L 
#12 
SPS1 




tt*AO 
SPL3 

UR_n 

tt*80 

*AA8.Y 

SPDLPNTR 

#4 

SPL2 

#34 

SPL2 



LDY #3 
LDA LTDV.Y 
STA W2L,Y 



DEY 
BPL 
JSR 
STA 
TXA 
AND «*01 



CAL1 



CNVHEX+1 



LDA tt*FF 

LDY «1 

JSR SETBV 

LDA ***D5 

w m* 

STA *8301 



>Y WRKPNTR 

)A LTEX,Y 

>Y 410 

iR SETBV 



jCALC 
ACTUAL 
RPM 



;SET 
BUFF 
FOR 

EXAMINE 



.SET 

BUFF 

FOR 
;R/W 

ABILITY 



— End assembly 
6200 bytes 
Errors: 
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2600: 
2603: 
2606: 
2609: 

260C: 
260F: 
2611 : 
2614: 
2616: 
2617: 
2618: 
261A: 
261 B: 
261D: 
2620: 
2622: 
2624: 
2626: 
2628: 
262A: 
262C: 
26 
26 



si 



4C 31 26 
4C EE 26 
4C OC 26 
4C 1C 28 

AD 2? 2C 
85 02 
AD 28 2C 
85 03 
48 
68 

A5 02 
EA 

A5 02 
AD EC CO 
C6 02 
A5 02 
C? FF 
DO EE 
C6 03 
A5 03 
C9 FF 
DO EB 
60 



2631 


20 


15 

00 


OC 


2634 


A9 




2636 


8D 




B2 


2639: 


8D 


& 


B2 


263C 


8D 


C3 


B2 


263F: 


8D 


C4 


B2 


2642 


8D 


C5 


B2 


2645 


8D 


C6 


B2 


2648 


, 8D 


C7 


B2 


264B. 


8D 


C8 


B2 


264E 


i 85 


FF 




2650. 


A9 


50 




2652 


. 20 


i; 


OC 


2655! 
2657 


A9 




. 20 


2A 


2C 


265A: 


A9 


01 




265C 


20 


12 


OC 


265F: 


20 


AA 


27 


2662 








m 




?? 


27 


2669- 


' AD 


8 


B2 


266C 


CD 


11 


B3 


266F. 


BO 


5B 




2671 


CD 


10 


B3 


2674; 


90 


56 




2676 


AC 


C7 


B2 


2679' 


AE 


C8 


B2 


267C 


AD 


OA 


B3 


267F 


: 29 


80 




2681 


. FO 


15 




2683 


AD 


C4 


B2 


2686 


38 






2687 


E9 


80 




2689 


A8 






268A 


AD 


C5 


B2 


2680 


. E9 


40 




268F 


AA 






2690 


■ EO 


1C 




2692 
2694 


90 


04 




: AO 


FF 




2696 


: A2 


IB 




2698 


, 8C 


90 


B2 
B2 


269B 


. 8E 


91 



199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 



a*************************** 

* ESSENTIAL DATA DUPLICATOR 

* VERSION 4.2 STANDARD/PLUS 

* 6502 ASSEMBLY SOURCE CODE 

* COPYRIGHT (C) 1986 

* ALL RIGHTS RESERVED 

* UT1LIC0 MICROWARE 

* DONALD ANTHONY SCHNAPP 

* PRINTED APRIL 23. 1986 
**************************** 

******************** 

* ANALYZE ROUTINES * 
******************** 

ORG ANALYZE 



JMP 
JMP 
JMP 
JMP 

WSTSYNC LDA 
STA 
LDA 
STA 

WSTL1 PHA 
PLA 
LDA 
NOP 

WSTL2 LDA 
LDA 
DEC 
LDA 
CMP 
BNE 
DEC 
LDA 
CMP 
BNE 
RTS 

ANALYZET JSR 
LDA 



ANLZ2 



ANLZ4 



ANALYZET 
FNDLNGTH 
WSTSYNC 
NCAUTO 

WSYNCL 
$2 

UISYNCH 
43 



42 
*2 

4C0EC 
42 

Hff 

WSTL1 

43 

43 

#4FF 

WSTL2 



CHKESC 

mih 

TRKTSH 

TRKDEL 

TRKDEH 

TRKTEH 

TRKLL 

TRKLH 

4FF 

#450 

jjPOUT 

CONTROL 

#401 

EPOUT 

TRKE 

EgRORE 

ERRORL 

TRKLH 

MAXLNGTH 

ERRORL 

MINLNGTH 

ERRORL 

TRKLL 

TRKLH 

SPCLCNTL 

#480 

ANL24 

TRKDEL 

#430 

TRKDEH 
#440 

#41 C 

ANLZ4 

#4FF 

#41 B 

TLENL 

TLENH 



jWAIST 
•NBLCNT 

;WA1ST 
TIME 
FOR 

SYNCRNZ 
TRACK 



;ANALYZE 
TRACK 
jMANAGER 

; SETUP 
WORK 
SPACE 



:DO 

PREANLZ 
jROUTINE 

;DO TRK 
•END 



\ PARM*0A 



;KEEP 
{TRACK 
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AD 8C B2 
FO 03 
20 9E 2B 
A? 43 
12 OC 
01 

2A 2C 



20 

A? 
20 
A? 
20 



2 OC 



20 8D 2A 
20 B5 27 
1 



AO 5E 
8C C5 B2 
AO 96 
8C C6 B2 
AO 00 

n B2 




AO 00 
A9 42 



DO I 
84 00 



OE 2A 
F5 



C7 B2 
06 



1 

6 

A? 

69 00 
38 

E9 02 
18 

6D C8 B2 
85 07 
A9 00 



8P 



2A 



:D 

A? OA 
85 08 

20 51 
BO 5C 
A5 06 
85 02 
A5 05 
85 01 
A5 07 
85 03 
AO 00 

d! 8 

12 II 

C8 

DO F5 
E6 OD 

It 8? 

A5 01 
C9 78 
DO E9 
A4 OC 
A6 OD 
EC OC 2C 
90 24 
DO 07 
CC OB 2C 



285 
286 
287 

288 ANL23 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 ERRORE 

300 

301 

302 

303 

304 

305 ERRORL 



LDA 
BEQ 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
JSR 
CLC 
RTS 

LDY 
STY 
LDY 
STY 
DY 
TY 
STA 
LDY 
STY 
LDY 

SEC 

CMP 
BCS 

IT? 
AY 
STY 

318 JSR 

319 CSERRF SEC 

11! RTS 

322 FNDLNGTH LDY 
LDA 
JSR 
BCS 
BNE 
STY 
CLC 
ADC 
STA 
LDA 
ADC 
SEC 
SBC 
CLC 
ADC 
STA 
LDA 
STA 

LDA 
STA 




323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 FLLO 
345 
346 
347 
348 
349 
350 
351 
352 

353 FLL1 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 FLS1 

366 

367 

368 

369 

370 



SR 
CS 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CMP 

IDE 

I NY 
BNE 
INC 
INC 
INC 
LDA 
CMP 
BNE 
LDY 
LDX 
CPX 
BCC 
BNE 
CPY 



SYNCFLG 

ANLZ3 

CALCSYNC 

»*43 

EPOUT 

ttl 

CONTROL 

#*20 

EPOUT 

MOVEBUFF 

TRKS 



#*5E 

TRKDEH 

»*96 

TRKTEH 

#0 

TRKDEL 

$FF 

#*FF 

TRKLL 

3*1 B 

TRKDEH 

»*40 

TRKLH 
ANLZ2 



ttO 

tt*42 

CSAME 
CSERRF 
CSERRF 
$0 

TRKLL 
*6 
#442 
ttO 

»2 

TRKLH 

*7 

#0 

TSTLL 
TSTLH 
HI 
*8 

FSAME 
FLS6 
$1 

*5 
*1 
%7 
*3 
MO 

<*0) ,Y 
<*2> Y 
FLS1 
*C 

FLL1 

IS 

$1 
$1 

Sfc L1 

*D 

TSTLH 
FLS2 
FLS3 
TSTLL 



jOF TRK 
j LENGTH 



;D0 

PREWRIT 
ROUTINE 



;CALC 
TRACK 
■START 

;END 
ERROR 
MANAGER 



5 LENGTH 
ERROR 
MANAGER 



: VERIFY 
DISK 
MANAGER 
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2752: 
2754: 
2754: 
2759: 
275C: 
275E: 
2761 : 
2762: 
2764: 
2767: 
2769: 
276C: 
276E: 
2771 : 
2773: 
2775: 
2777: 
2779: 
277B: 
277E: 
2780: 
2783: 
2786: 

§ l! 

m\ 

2792: 
2795: 
2798: 
279B: 
279C: 
279D: 
279E: 

279F: 
27A1 : 
27A3: 
27A6: 
27A9: 

27AA: 
27AC: 
27AE: 
27B1 : 
27B4: 

27B5: 
27B8: 
27B9: 
27BC: 
27BF: 
27C0: 
27C3: 
27C6: 
27C9: 
27CC: 
27CD: 
27D0: 
27D3: 

27D4: 
27D7: 
27D8: 
27DB: 
27DE: 
27DF: 
27E2: 
27E5: 
27E8: 
27EB: 
27EC: 
27EF: 
27F2: 



90 ID 
F0 IB 
8E OC 2C 
8C OB 2C 
A5 06 
8D OD 2C 
38 

E5 04 
8D C7 B2 
A5 07 
8D OE 2C 
E5 05 
8D C8 B2 
E6 06 
DO A5 
E6 07 
C6 08 
DO 9F 
AD OC 2C 
DO 08 
AD OB 2C 
CD 1C B3 
90 15 
AD C7 B2 

ED A9 B2 

8D BB B2 

AD C8 B2 

ED AA B2 

8D BC B2 

18 

60 

38 

60 



A9 27 
AO F3 
AE 12 
20 DC 
60 



27F3: FF 27 
27F5: 2C 28 
CC 28 



A9 27 
AO F9 
AE 13 B3 
20 DC 2A 
60 

AD C4 B2 
38 

ED C7 B2 
8D CI B2 
08 

AD C5 B2 
ED C8 B2 
8D C2 B2 
AD C6 B2 
28 

ED C8 B2 
8D C3 B2 
60 

AD C4 B2 
38 

ED 90 B2 
8D CI B2 
08 

AD C5 B2 
ED 91 B2 
8D C2 B2 
AD C6 B2 
28 

ED 91 B2 
8D C3 B2 
60 



27F 



27F9: DA 
27FB: 8F 
27FD: EO 



28 
29 
29 



371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 



FLS3 



BCC FLS2 
BEQ FLS2 



FLS2 



FLS6 



STX TSTLH 

STY TSTLL 

LDA *6 

STA TSTAL 
SEC 

SBC *4 

STA TRKLL 

LDA *7 

STA TSTAH 

SBC $5 

STA TRKLH 

INC *6 

BNE FLLO 

INC *7 
*8 
FLLO 

LDA TSTLH 

BNE FLS5 



LDA TSTLL 

CMP MNBTEQLN ;PARM*1C 

BCC FLS4 

FLS5 LDA TRKLL 
SEC 

SBC TTLENL 

STA D1FL 

LDA TRKLH 

SBC TTLENH 

STA DIFH 
CLC 
RTS 

FLS4 SEC 
RTS 

TRKL LDA M >LTLN6TH ;FIND 

LDY #<LTLN6TH TRACK 

LDX PLNGCNTL LENGTH 

JSR DOPSUBO ; MANAGER 
RTS 

TRKE LDA #>LTEND ;FIND 

LDY tKLTEND TRACK 

LDX PENDCNTL END 

JSR DOPSUBO MANAGER 
RTS 

TRKS LDA TRKDEL ;CALC 
SEC TRACK 

SBC TRKLL START 

STA TRKDSL ROUTINE 
PHP 

LDA TRKDEH 

SBC TRKLH 

STA TRKDSH 

LDA TRKTEH 
PLP 

SBC TRKLH 

STA TRKTSH 
RTS 



CALC 

TRACK 

START 

FOR 

SYNC 

ROUTINE 



TRKS1 LDA TRKDEL 
StC 

SBC TLENL 

STA TRKDSL 
PHP 

LDA TRKDEH 

SBC TLENH 

STA TRKDSH 

LDA TRKTEH 
PLP 

SBC TLENH 

STA TRKTSH 
RTS 



* ADDRESS TABLii FOR~TRACK~ * 

* LENGTH AND TRACK END ROUTINES * 



LTLNGTH DA TRKDGL 
DA TRKUQL 
DA TRKABL 



LTEND 



DA TRKT6E 
DA TRKDPE 
DA TRKDGE 



;DATPTRN 

\mm 

jTIMEGAP 
DATPTRN 
; DATA GAP 
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2C 



!{» 

AO 00 
A? 73 
20 CB 29 
BO 1C 
A5 01 
85 03 
84 02 
20 D3 2? 
BO 11 
98 
38 

E5 02 
8D C7 B2 
A5 01 
E5 03 
8D C8 B2 
20 BO 29 
60 

38 
60 

AD C4 B2 
18 

69 08 
A8 

AD C5 B2 
18 

69 00 
E 



TRKDGL 



2A 



20 
BO 

DO EA 
84 00 

84 06 

AD C5 B2 

E? IB 

85 07 
A9 08 
85 08 
A9 00 

18 ? 8 

20 51 2A 
BO 5E 
A5 06 
85 02 
A5 05 
85 01 
A5 07 
85 03 
Bl 00 

n 



460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 

IK 

491 
492 
493 
494 
495 
496 
497 
498 
499 
500 

m 

503 
504 
505 



TDGLE 
CSERROR 



TRKUQL 



TQLO 



LDY 
LDA 
JSR 
BCS 
LDA 
STA 
STY 
JSR 
BCS 
TYA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
JSR 
RTS 

SEC 
RTS 

LDA 
CLC 
ADC 
TAY 
LDA 
CLC 
ADC 
JSR 
BCS 
BNE 
STY 
STY 
LDA 
SEC 
SBC 
STA 
LDA 
STA 



CONTROL 
#0 

R*78 

FTMARKR 

TDGLE 

*1 

*3 

*2 

FTMARKR2 
TDGLE 



*2 

TRKLL 

*1 

*3 

TRKLH 
CTMARKR 



TRKDEL 
H8 

TRKDEH 
DO 

CSAME 

CSERROR 

CSERROR 

*0 

$6 

TRKDEH 



1T ER 

PATTERN 
TRACK 
LENGTH 
ROUTINE 



;MANAGER 
UNIQUE 
TRACK 
LENGTH 



TQL1 



C9 78 
DO E9 



TQS1 



8? 



A5 07 
8D OE 2C 
A5 04 
38 

E5 06 
8D C7 B2 
A5 05 
E5 07 



TQS3 



TSTLL 
TSTLH 
$6 

TSTAL 
*7 

TSTAH 
$4 
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28AE 



28BB 
28BE 

m 

28C6 
28C8 
28C9 
28CA 
28CB 



8D C8 B2 
E6 06 
DO A" 
E6 
C6 08 
DO ?D 



AD Oi 
DO 0: 



2C 



AD OB 2C 
CD 1C B3 
90 02 
18 
60 
38 
60 



28CC; 


AD 


OC 


B3 




8D 


C7 


B2 


IIbii 


AD 


OD 


B3 




8D 


C8 


B2 


28D8: 


18 






28D9: 


60 







28DA: 
28DC: 
28DE: 
28E0: 
28E3: 
28E5; 
28E7: 
28EA: 
28ED: 
28F0: 
28F3: 
28F5: 

28F7: 
28F9: 
28FB: 
28FD: 
28FF: 
2902: 
2904: 
2906: 
2907: 
2908: 
290A: 
290 C: 
290E: 
2910: 
2912: 
2914: 
2917: 
2919: 
291C: 
291E: 
2921: 
2924: 
2926: 
2928: 
2928: 
292E: 
2930: 
2932: 
2935: 
2938: 
2939: 
293A: 
293C: 
293F: 
2941 : 
2944: 
2946: 
2948: 
294A: 
294C: 
294E: 
2950: 
2952: 
2954: 
2956: 
2957: 
295A: 
295B: 
295D: 
2960: 
2963: 



A9 93 
85 01 
A9 BO 
8D 21 
AO 00 
84 



Bl 
FO 



2C 



2C 



2C 



8C C4 B2 
8C C6 B2 
8C 10 2C 
8C 11 
00 
15 
00 
F8 
E6 01 
A5 01 
CD 21 
DO EF 
A9 83 
38 
60 

Bl 00 
DO 2E 
E6 00 
DO F8 
E6 01 
A5 01 
CD 21 
90 EF 
AC 11 
DO OA 



A9 84 
90 DE 



2C 

2C 

2C 
B3 



CE 
AD 

il 



C- 
C- 
FF 
06 

CE C5 B2 
CE C6 B2 
18 
60 

A5 00 
8D 22 2C 
A5 01 
8D 23 2C 
E6 00 
DO 08 
E6 01 
A5 01 
C9 BO 
BO 04 
Bl 00 
DO FO 
A5 00 
38 

ED 22 2C 
AA 

01 

23 2C 



CD 
90 



2C 



555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 

tti 

603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 



TQS2 



TQS6 



TQS5 
TQS4 



TRKABL 



TRKTGE 



STA 



FTGL1 



FTGDE 
FT6L2 
FTGL3 



FTGL4 



FTGD 



FTGD1 
FTGS1 



FTGL5 



FTGS2 
FT6S4 



INC 
DEC 
BNE 
LDA 
BNE 

BCC 
CLC 
RTS 
SEC 
RTS 

LDA 
STA 
LDA 
STA 
CLC 
RTS 

LDA 
STA 
LDA 
STA 
LDY 
STY 
STY 
STY 
STY 
STY 
LDA 
BEG. 
INC 
BNE 
INC 
LDA 
CMP 
BNE 
LDA 
SEC 
RTS 
LDA 
BNE 
INC 
BNE 
INC 
LDA 
CMP 
BCC 
LDY 
BNE 
LDY 
CPY 
LDA 
BCC 
DEC 
LDA 
CMP 
BNE 
DEC 
DEC 
CLC 
RTS 
LDA 
STA 
LDA 
STA 
INC 
BNE 
INC 
LDA 
CMP 
BCS 
LDA 
BNE 
LDA 
SEC 
SBC 
TAX 
LDA 
SBC 
CMP 
BCC 



TRKLH 

T^LO 

%7 

*8 

TQLO 

TSTLH 

TQS5 

TSTLL 

MNBTEQLN 

TQS4 



ABSLNGTL 
TRKLL 
ABSLN6TH 
TRKLH 



l»*93 
*1 

tt$BO 
ENDBCHK 
ttO 
*0 

TRKDEL 

TRKTEH 

TGLL 

T6LH 

<*0).Y 

FTGL3 

*0 

FTGL1 

$1 

$1 

ENDBCHK 

FTGL1 

»*83 



(*0),Y 

FTGSl 

$0 

FTGL2 

*1 

$1 

ENDBCHK 

FTGL2 

TGLH 

FTGD 

TGLL 

PTGAPMIN 

#$84 

FTGDE 

TRKDEL 

TRKDEL 

#*FF 

FTGD1 

TRKDEH 

TRKTEH 



*0 

TTGAL 
*1 

TTGAH 
*0 

FTGS2 

Si 

<*0) .Y 

FTGL5 

$0 



TTGAL 

TTGAH 

TGLH 

FT6S5 



I PARM* 1 C 



jABSLUTE 
LENGTH 
ROUTINE 



j MANAGER 
TRACK 

(end 
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2965: 
2967: 
29 (A: 



29*!! 



29 



2974: 
2977: 
297A: 
297D: 

II? ! 

2983: 
2986: 
|9|8: 

298C: 

298F: 
2991: 



DO 07 
EC 10 
90 1A 
FO 18 

El! 

AD 22 
8D C4 B2 
AD 23 2C 
8D C6 B2 



2C 
2C 

£ 



E9 38 
8D C5 B2 
A5 01 

c? go 

DO 80 
4C 19 29 



A9 02 
20 2A 2C 

an 

20 CB 29 
90 05 
20 BO 29 



38 

E9 38 
8D C5 B2 
AO 00 
A9 78 
85 01 



00 
04 



29C1 : 
29C3: 
29C5: 
29C7: 



? 8i 



29 7F 
91 00 

DO* F5 
E6 01 
A5 01 

ill 



29 



29CB: 
29CD: 
29CF: 
29D1 : 
29D3: 
29D4: 
29D6: 
29D8: 
29DA: 

mi 

29DF: 



291 

P 

291 
291 



0: 

:2: 
!4: 
!6: 
8: 



29EA: 
29EB: 

m\ 

29F1 : 
29F3: 
29F5: 
29F7: 
29FA: 
29FC: 
29FE: 
2A01 : 
2A03: 
7A06: 



84 00 

85 01 
Bl 00 
30 F6 
C8 

DO F9 
E6 01 

60 

A9 5C 
85 01 
AO 00 
84 00 

tt 00 

DO OD 



01 
01 




9* 
2A0C: 
2A0D: 



EO 78 
DO 05 
A9 85 
4C 06 29 
Dl 00 
FO EC 
8C C4 B2 
A5 01 
8D C5 B2 
18 
9 38 
6 B2 



633 FTGS3 
634 




BNE 
CPX 
BCC 
BEQ 
STX 
STA 

635 LDA 

636 STA 

637 LDA 

638 STA 

639 SEC 
440 SBC 

641 STA 

642 FT6S5 LDA 

643 CMP 

644 BNE 

645 JMP 
646 

647 TRKDPE LDA 

648 JSR 
649 
650 
651 
652 
653 
654 



I? 5 



681 



TDPE2 



658 
659 
660 
661 

662 CTMARKR 

663 

664 

665 TDPE3 
666 
667 
668 

t% 

671 
672 
673 
674 



TDPE4 



JSR 
BCC 
JSR 
SEC 

I 

SEC 
SBC 
STA 
LDY 
LDA 
STA 
LDA 
BPL 
AND 
STA 
I NY 
BNE 
INC 
LDA 
CMP 
BNE 
CLC 
RTS 



FTMDN 

'6 
677 

678 FTMARKR STY 

679 STA 

680 FTMARKRl LDA 



BMI 



682 FTMARKR2 1NY 

683 BNE 

684 INC 

685 LDA 

686 CMP 

687 BNE 

688 SEC 

689 RTS 
690 

691 TRKD6E LDA 

692 STA 
693 
694 
695 

696 FE63 



697 
698 
699 
700 
701 
702 
703 

704 FEGl 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 



LDY 
STY 
LDA 
I NY 
BNE 
INC 
LDX 
CPX 
BNE 
LDA 
JMP 
CMP 
BEQ 
STY 
LDA 
STA 
CLC 
ADC 
STA 
CLC 
RTS 



FTGS3 

TGLL 

FTGS5 

FTGS5 

TGLL 

TGLH 

TTGAL 

TRKDFI 

TTGAH 
TRKTEH 




»438 

TRKDEH 

41 

FTGL3 
FTGL4 




#2 

CONTROL 

Nk> 

FTMARKR 

TDPE2 

CTMARKR 


i MANAGER 
DATA 

;END 


TRKTEH 






H438 

TRKDEH 

HO 

»478 
41 

<40> .Y 

#47F 

<40>,Y 


; CLEAR 
MARKER 
LEFTOVR 
FROM 

PATTERN 
1 SEARCH 


TDPE3 

41 

41 

TDPE3 




40 
41 

<40> ,Y 
FTMDN 

FTMARKRl 

$1 

41 

fi4AF 
FTMARKRl 


iFIND 

MARKER 

FROM 

DATA 

PATTERN 
■SEARCH 


H45C 
41 

HQ 

40 

<40>,Y 


{MANAGER 

DATA 
'GAP 

TRACK 
;END 


FEGl 

11 

♦1478 

FEGl 

*»485 

FTGDE 

<40) ,Y 

FEG3 

TRKDEL 

• r\ r\ u/ u. l_ 

41 

TRKDEH 




#438 
TRKTEH 
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2A0E: 
2A10: 
2A12: 
2A14: 
2A16: 
2A18: 
2A1A: 
2A1C: 
2A1F: 
2A20: 
2A22: 
2A24: 
2A26: 
2A28: 
2A2A: 
2A2C: 
2A2E: 
2A30: 
2A32: 
2A34: 
2A35: 
2A36: 
2A38: 
2A39: 
2A3B: 
2A3D: 
2A3F: 
2A41 : 
2A43: 
2A45: 
2A47: 
2A49: 
2A4B: 
2A4D: 
2A4F: 
2A50: 

m\ 
m 

2A59: 
2A5B: 
2A5E: 
2A60: 
2A62: 
2A63: 
2A65: 
2A67: 
2A69: 
2A6B: 
2A6C: 
2A6D: 
2A6F: 
2A71 : 
2A73: 
2A76: 
2A77: 
2A79: 
2A7I 
2A7I 
2A7F: 
2A81 : 
2A83: 
2A85: 
2A87: 
2A89: 
2A8B: 
2A8Cs 

2A8D: 
2A90: 
2A93i 
2A95: 
2A98: 
2A9A: 
2A9C: 
2A9E: 
2AA0: 
2AA3: 
2AA6 : 
2AA9: 
2AAC: 
2AAE: 




E6 05 
A6 05 
E0 78 
FO OC 
Dl 04 
FO Fl 
A5 05 
84 04 
A2 00 
18 
60 

A4 08 
88 

CO FF 
DO 08 
C6 OB 
A6 OB 
EO 5B 
FO OB 
Dl OA 
FO EF 
A5 0~ 



B4 
A2 01 
18 
60 



A4 

A9 Oi 

lilt 

85 OD 
AD OF 2C 
Dl 



FO 

C8 
DO 
E6 



C6 08 

11" 

60 

A5 07 
85 OB 
84 OA 
AD OF 2C 



C8 
DO 
E6 



C6 08 
FO EC 
E6 OC 
DO 02 
E6 OD 
Dl 06 
FO ED 
84 06 
18 
60 

AD C6 B2 
AE C4 B2 
AO AF 
8C C6 B2 
84 03 
AO FF 
84 02 
AO 00 
20 B7 2A 
AD C5 B2 
AE C4 B2 
20 B7 2A 
A9 93 
8D C5 B2 



715 
716 
717 

722 
723 
724 
725 
726 
?27 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 

m 

753 
754 
755 
6 
7 
758 
759 

m 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

77 

77 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 



it************************* 



CSAME 



CSLl 



CSSl 



CSHTEND 
CSL2 



CSS2 



ALLSAME RTS 
FSAME LDY 



STA 
STA 
LDA 

FSL1 CMP 
BEQ 
I NY 
BNE 
INC 
DEC 
BNE 

FSE SEC 
RTS 
LDA 
STA 
STY 
LDA 
I NY 
BNE 
INC 
DEC 
BEG 

FSS1 INC 
BNE 
INC 

FSS2 CMP 
BEQ 
STY 
CLC 
RTS 



FSGTQNE 



FSL2 



MCVEBUFF LDA 
LDX 
LDY 
STY 
STY 
LDY 
STY 
LDY 
JSR 
LDA 
LDX 
JSR 
LDA 
STA 



$6 

a 

$D 

S6VAL 
($6) .Y 
FSGTONE 

FSL1 
*7 
*8 
FSL1 



*7 
$B 
*A 

SGUAL 

FSS1 

$7 

$8 

If 

FSS2 
*D 

<*6) ,Y 

FSL2 

*6 



TRKTEH 

TRKDEL 

«*AF 

TRKTEH 

*3 

8*FF 

*2 

«to 

MOVE 

TRKDEH 

TRKDEL 

MOVE 

H*93 

TRKDEH 



*5 
*B 

tto 

*4 

*A 
$8 

<*4>,Y 
SGUAlL 


; COUNT 
ALL THE 
BYTES 
WHICH 

'ADC T Ijr" 

:ARE THE 

\m 

•ROW 


CSSl 

*5 

*5 

»*78 

CSHTEND 

<*4) ,Y 

CSLl 

*5 

*4 




*8 




#*FF 

CSS2 

*B 

*B 

*»*5B 

ALLSAME 

<*A) ,Y 

ir 

*A 
#1 





FIND 

THE 
"YTES 
HAT 
ARE THE 
SAME 



m 



RAW DATA 
BYTES 
TO THE 
WRITE 
BUFFER 
FOR 

WRITING 
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2AB1 
2AB3 
2AB6 

2ABB 
2ABD 
2ABF 
2AC1 
2AC3 
2AC5 
2AC7 
2AC9 
2ACB 
2ACD 
2ACF 
2AD1 
2AD3 
2AD5 
2AD7 
2AD9 
2ADB 



A? FF 
8D C4 
60 



B2 



2ADC: 
2ADE: 

2AE8: 
2AEA: 
2AED: 
2AF0: 



2AF6: 
2AF7: 
2AF9: 
2AFB j 
2AFC: 



'BO 3: 
!B05: 
B08: 
'BOB: 

18! 

m 

IB17: 
!B18: 
BIB: 

m\ 

2B20: 



2B25: 
2B27: 
2B29: 
2B2C: 
2B2E: 
2B31 : 
2B33: 
2B35: 
l§37: 
2B39: 
2B3B: 
2B3D: 
2B3F: 
2B42: 



85 
86 

A? 1C 
85 05 



Bl 
91 



S 



8. 1 



00 
02 



C6 00 
A5 00 



FF 
02 



C6 01 
C6 02 




85 05 

84 04 

E 24 2C 

9 07 
8D 25 2C 
A9 02 
8D 26 2C 
OE 24 2C 
90 16 

K * 6 2C 

A8 

Bl 04 

85 00 
C8 




AD CI 
IB 

69 10 

Al 



8 



2C 



90 16 
8D C9 B2 
CE 25 2C 
FO OA 

ff ft 

30 D4 
6C 00 00 
38 

AD C9 B2 
60 



B2 



A 
8 
8 

6D C3 B2 
85 01 
AD BC B2 
30 2E 
A9 01 
85 03 
A9 02 
85 04 
A9 08 
85 06 
20 83 2B 
BO 18 



820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 



856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 

m 

874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 



FF 

KDEL 



MOVE STA 41 ; ACT UAL 

STX *0 (MOVE 

LDA #*1C ROUTINE 

STA *5 

ML1 LDA (*0),Y 

STA <*2) Y 

DEC *0 

LDA *0 

CMP #*FF 

BNE MSI 

DEC *1 

MSI DEC $2 

LDA *2 

CMP #*FF 

BNE ML1 

DEC *3 

DEC *5 

BNE ML1 



**************»*******x****«***** 
» DOPSLIBO: DO PARM JSR ORDER 

* A/Y = HIGH/LOW = JSR TABLE 

* X = KEY ORDER PATRN (3213 21 3X) 

* EXAMPLES: 
ORDER 1,2,3 = 0010 1010 <*2A) 
ORDER 3'2!l = 1110 0000 <*E0) 
ORDR 2 6NLY = 0100 0000 <*40> 



DOPSUBO 



DOPL1 
D0PL2 



DOPS1 



1JMPO 
DOPDE 

DOPD 

NCAUTO 



CREATE 

CRTL2 
CRTL1 



*5 
$4 

ODPTRN 

O^CNTR 
#2 

ODPNTR 
ODPTRN 
D0PS1 
ODPf^lTR 



<*4) ,Y 
*0 

<|4),Y 

IJMPO 

DOPD 

ERRORCD 

ODCNTR 

DOPDE 

QDPNTR 

D0PL2 

DOPL1 

<*0) 

ERRORCD 



TRKDSL 
M* 1 

#0 
40 
45 

TRKTSH 
41 

D1FH 

CHOP 

ttl 

43 

«2 

44 

t>8 

46 

NXTIME 
CRTD 



;JSR 
PARM 
i ORDER 

;A=LTAH 
Y=LTAL 
X=PATRN 



;ERROR 



iMANAGER 
AUTO 
NIBBLE 
COUNT 
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2B44: 
2B46: 
2B48: 

mi\ 

2B50: 
2B52: 



2B60s 
2B61 : 
2B63: 
2B65: 
2B67: 
2B69: 



C6 06 
DO F7 
CE BB B2 
AD BB B2 
C? FF 
DO E9 
CE BC B2 
AD BB B2 
C9 FF 
DO DF 
A9 00 
C5 05 



85 03 
A9 01 



20 83 2B 
BO EA 



6! 



EE BC B2 
DO E9 
4C 5C 2B 



FO OD 
C8 

DO F7 
E6 01 

su 

DO EF 



85 05 

18 

60 



K! 



85 00 



27 



2BAC; 
2BAE: 
2BB1 : 
2BB3 : 

III; 

2BBA 



B2 



E 



2BBF 
2BC1: 
2BC3: 
2BC5: 



2BCC: 
2BCE: 
2BD1 : 
2BD3: 
2BD5: 
2BD7: 
2BD9: 
2BDB: 
2BDD: 

IbIi : 
2BE3: 
2BE6: 
2BE7: 



4C AE 
46 03 
66 02 
46 03 
66 02 
46 03 
66 02 



AD 
1 
6 

8D 

0" 
A 



CI B2 



02 
27 



2C 



C3 B2 



2BEB: E9 78 
2BED: 28 



m 



CRTD 



CHOP 



CHPL2 
CHPL1 



NXT1ME 



NXTMD 



CALCSYNC 



CS1 



CSKP2 



CSKP1 



CSD 



!0R 



46 

CRTL1 

DIFL 

DIFL 

Ma 

DIFH 
DIFL 
M4FF 
CRTL2 



»2 
43 
Ml 
$4 
#8 
46 

NXTIME 

CRTD 

46 

CHPL1 

DIFL 

CHPL2 

DIFH 

CHPL2 

CRTD 

<40) ,Y 
43 

NXTMD 

NXTIME 
$1 

Xlm 

NXTIME 



44 



TRKS1 
#0 

IS 

$3 

#478 
$1 

TRKDSL 

CSKP2 

41 

TRKTSH 
CSD 

CSKPl 

42 
42 
«0 
$3 
43 

CS1 

$1 

CS1 

43 

42 

43 

$2 

43 

f^KDSL 
42 

WSYNCL 
TRKTSH 
»478 



(AUTO 



CALI 

OFFSET 
FROM 

-m- 

PATTERN 
WHICH 

BEFORE 

?HE T 
TRACK 
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8D 28, £ 



07 

8D 27 2C 
AD 28 2C 
E9 00 
8D 28 2C 
60 



LDA 

SEC 

§?* 

STA 
RTS 



*3 

WSYNCH 
WSYNCL 

»? 

WSYNCL 
WSYNCH 
410 

WSYNCH 



» STORAGE AND 
* 



WORKSPACE * 



L1L 
L2L 

989 DGL2H 

990 TD6L1L 

m fa 

Iff Mb 

997 SGVAL 

998 T6LL 

1000 

1001 TTRKLH 

1002 TDGSA2L 

1003 TDGSA2H 

1004 DGSA1L 

1007 DGEA1L 



m im 

1010 WS1L 

1011 WS1H 

1012 WS2L 

1013 US2H 

1014 ESRC 

1015 ENDBCHK 

1016 TT6AL 
7 TTGAH 

ODPTRN 




m 



22 WSYflEh 



IESB 



TH 



T1MEGAP 



LENGTH 

Mi 

DATA 

START 

ADDRESS 

DATA 

END 

ADDRESS 



— End assembly 
1577 bytes 
Errors: 
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iASM 



19? xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

200 * ESSENTIAL DATA DUPLICATOR 

201 x VERSION 4.2 STANDARD/PLUS 

202 x 6502 ASSEMBLY SOURCE CODE 

203 x COPYRIGHT <C> 1986 

204 x ALL RIGHTS RESERVED 

205 x UTILICO MICRQWARE 

206 * DONALD ANTHONY SCHNAPP 

207 x PRINTED APRIL 23, 1986 

208 xxxxxxxxxxxxxxxxxxxxxxxxxxxx 
209 

210 xxxxxxxxxxxxxxxxxxxx 

211 * CONTROL ROUTINES * 
x 42C2A-42FFF * 
xxxxxxxxxxxxxxxxxxxx 

RDP EQU 40 

RDWRKP EQU 42 

RTWRKP EQU 44 

CPP EQU 46 

CPWP EQU *8 

ZWRKSPC EQU 4FE 



INSTRUCTION BYTES: 

1XXX XXXX = DATA 
0000 OOXX = TIMING 

403 MATCH OR FIND ONE TIMING 
BYTE DURING SEARCH 

410 ANLDONE; ROUTINE DONE 

START SUB FLAG (TCPPSUB) 
RETURN SUB <TSUBCPP) 
IF SUB IS DONE, RESET 
SUB FLAG 

SEARCH MODE. SET DATA 

UFF POINTER TO 44000 
SEARCH MODE. CONTINUE DATA 

BUFF PNTR FROM S/R ENI 
SEARCH MODE, SET DATA BUFF 
POINTER TO S/R START 

435 REPLACE MODE. CONTINUE DATA 
BUFF PNTR FF.OM S/R END 




436 REPLACE MODE. SET DATA 
" IFF PNTR Tfl 



/R START 



P T 



442 TRANSFR RDP TO STORAGE 

443 TRANSFR STORAGE TO RDP 



jXT INVALID 
. IND NEXT NON 4FF 
RPLC DATA WITH RANDOM VALID 



DATA WITH RNDM INVALD 
ITH FjN^jj VpRY INVLD 



461 SUB N 
.2 ADD N 

SUB NXT TWO BYTES FRM RDP 

SINGLE CHAR WILDCARD 
M^TBkp_CHAR_WlLD( >RD 

473 SET TIMING BYTE HIGH BIT 
OR LOCATING TEND/TLENGTH 



ORG CONTROL ;2C2A 
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2C2A 

M 

2C30 
2C32 

IS 

2C38 
2C3A 
2C3C 
2C3E 



2C46 

%& 

m 

2C50 

~!C53 
,56 
■59 



A2 B3 
AO gg 



10 
CO 
03 
OA 

88 



18 

60 

!CSA: 20 

m i? 



C9 

il 

A2 
C9 
FO 02 
A2 Bl 
AO 00 

Mil 

85 06 

n u 

85 06 
AO 00 
20 FC 
15 
60 



2C62 



FC 
7E 
08 
20 71 
90 05 



2E 
2E 

2C 



2C65 

2C67: AE 2D 2F 



2C6A: 
2C6C: 
2C6E 

"71 

74: 
!C75: 



Bi: ft 



FO 

It 

21 
60 



EE 
08 

60 2C 
76 2C 



30 23 
AA 



34 2F 
04 




2CC3 

W 

!CCA 
!CCD 
!CCF 



C9 03 
FO 28 
"0 94 2E 
E 2A 2F 



FO 05 
91 04 



SETUP 



W 



P2 



CD0NE1 

ERROR 

COMMAND 

INCMND 
C0MR1 

C0MR2 



C0ML2 



C0MS1 



IJMP 



LDX *>PARMS 

LDY »*80 

CMP »2 

BEQ SSKIP2 

LDY «*C0 

CMP t»3 

BEQ SSKIP2 

LDX #>PREANLZ 

CMP ttO 

BEQ SSKIP 

LDX *»>CONTRLP 



P+l 



STA CPP 

m mi? 

STA CPP 

LDY SO 

JSR TCPPWRK 

JSR SSETUP 

JMP COMMAND 
RTS 

JSR TCPPWRK 

JSR CLRMPFLG 

LDA <CPWP),Y 

"SR C0MR1 

CC INCMND 

LDX ENDBFLAG 

BEQ ERROR 



; MANAGER 
[CONTROL 

;A=CNTRL 
ROUTINE 

1=CNTRL 

2=TEND 

3=TLNG 



INC 
JMP 



CPWP 
COMMAND 



JSR C0MR2 
CLi 
RT: 



BMI 
TAX 
AND 
PHP 
TXA 
PLP 
BEQ 
LDX 
CMP 
BEQ 
DEX 

6t p !s 

TXA 

ASLA 

TAX 

LDA 

STA 

LDA 

STA 

JMP 



DATABYTE 
H*FC 



TIMEBYTE 
*t*19 

LTCINST.X 
COMSl 

C0ML2 



;GET A 
COMMAND 
FROM 
INSTRCT 
BUFFER 



; START 
TO 

DECODE 
COMMAND 



{FINISH 
5 DECODE 



; SETUP 
1 COMMAND 
POINTER 
LTA1NST ,X AND 
ZWRKSPC DO 
LTAINST+1 ,X :THE 
ZWRKSPC* 1 {COMMAND 
(ZWRKSPC) ' 



DATABYTE JSR 
LDX 



DBFIND 



MP 



{MANAGER 
DATA 
BYTE 



FLl 



INDMW CMP 



DBFS1 



DBFIND BYTE 
<RDWRKP),Y 
DBFS1 {REPLACE 
MPFLAG 

DBFINDMW {SEARCH 
<RDWRKP),Y ' 
DBFS1 



INCDT 

(RDWRKP) ,Y {MULTBLE 
DBFL1 WILD 
PAT F SET CARD 
SETINCF 



TIMEBYTE CMP 

318 



LDX 
BEQ 
STA 



#3 

TIMEWLD 
INCDT2 
IMODE 
TBFIND 
(RTWRKP) ,Y 



{MANAGER 
TIME 
{BITS 

{REPLACE 
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2CD1: 4C EB 2C 



2CD4: 
2CD7: 
2CD9: 
2CDB: 
2CDD: 

IP 

2CE0: 
2CE1 : 
2CE4: 



2CEB: 
2CEE: 



tt 1 2F 

Dl 04 
F0 OE 
68 
68 

3f 
61 

20 99 2E 
Dl 04 

20 Cl 
20 88 2E 
60 



2E 



2CEF: 20 94 2E 

m\ n i§ 2F 

2CF7: Bl 04 

2CF9: DO OE 

2CFB: 68 

2CFC: 68 



TBFIND 



TBFL1 JSR 
TBFINDMW CMP 
BNE 

TBFS1 j§R 
RTS 

TIMEWLD JSR 



TBFS1 
MPFLAG 
TBFINDMW 
(RTWRKP) ,Y 
TBFS1 



| SEARCH 



INCDT 

<RTWRKP),Y ;MULTBLE 
TBFL1 WILD 



INCDT2 

WW 

(RTWRKP) ,Y 
TMWS2 



; INSTRCT 
;*»03 



2D02: 
2D04: 
2D06: 
2D09: 
2D0C: 

2D0D: 



2D10: 
2D11: 

2D12: 
2D15: 
2D18: 
2D1B: 



19 11 2E 
Bl 04 

FO F9 

20 C5 2E 
20 88 2E 
60 

68 
68 
68 

il 

20 05 2F 
20 69 2E 
4C IE 2D 
20 05 2F 



60 



IB!?! 

2D33: 
2D34: 

m 

2D3A: 
2D3D: 
2D40: 
2D43: 

2D16: 
2D48: 
2D4A: 
2D4C: 
2D4F : 
2D52: 

2D55: 
2D58: 

2D5B: 

81 ! 

2D64: 
2D66: 

m 

>6B 
>6D: 
2D6F: 
2D72: 
2D74: 
2D77: 
2D7A: 



16 
20 
C6 
60 



06 

5§ 



20 
4C 



8? 



20 8 

1 02 
85 FE 
A2 07 



, CA 



2F 



2D24: AE 2D 2F 



DO E9 
AE 30 2F 



2E 



A9 00 

SI? 

8D 2A 2F 
20 94 2E 
20 CD 2E 
4C 05 2F 

A9 00 
FO 02 
A9 01 
8D 2A 2F 



2E 
2F 



:0 69 2E 
\C 05 2F 



2E 
2D 
2E 



P2 

3D 82 2F 
DO F6 
20 CD 2E 
20 84 2E 
60 



TMWS2 
ANLDONE 



SSETUP1 
SSETUP 

STRTSUB 
SSBS1 



RTRNSUB 



CIMODE 

SIMODE 
DOMODE 



CIMODER 

SIMODE2 
D0M0DE2 



CIMODES 



FINVLD 

FINL1 
FINL3 



FINL2 



fSR 
IMP 



INCDT 

< RTWRKP) ,Y 
TMWL1 
PATFSET 
SETINCN 



TWRKCPP1 

RSETUP 

SSBS1 

TWRKCPPI 

CPP 

SUBPNTR 



ENDBFLA6 
1ETUP1 

~R 

;ppwrk 

IP 



CPWI 



ODE 



ft 1 

IMODE 

tSrISdp 
twrkcppi 

DO 

D0M0DE2 
81 

IMODE 

TRDPWRK 

TWRKCPPI 



SETUP 
WRKCPPI 



INGDT3 

FINL3 

INCDT 

(RDWRKP) ,Y 
ZW,RKSPC 

FINL1 

2WRKSPC 

LTFINVLD,X 

FINL2 ' 

TWRKRDP 

SETINCF 



; INSTRCT 



; INSTRCT 
;tt20 



5 INSTRCT 
j«21 



5 INSTRCT 
»31 



; INSTRCT 
#32 

INSTRCT 
#36 



; INSTRCT 
•#30 



; INSTRCT 
;#50 
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& i§ s 
is n 2E 

20 CD 2E 
20 84 2E 
60 

20 94 2E 
EE 31 2F 
AE 31 2F 
E0 42 
DO 05 
A2 00 

11 U 8 

91 02 
20 9? 2E 
60 



20 94 2E 




20 94 2E 
EE 33 2F 
2F 




20 99 2E 
60 



20 94 2E 
A9 00 

P 

E6 08 
Bl 08 



2E 




0: 

5 

6 04 
20 FO 2E 



60 
4C Bl 



2E 



08 
04 

08 



E6 
A5 

fl 

AA 
E6 08 

W li 

4C FB 2D 



lj 

6! 

85 00 



0) 

0! 

00 



FNONFF 



RRVALID 



RRVS1 



RRINVLD 



RRIS1 



RRVIVLD 



RRVIS1 



RRZERO 



ADDBYTW 



DBCHK 

ADDBDN 

ADDBER 
SUBBYTW 



ADDBYT 




CMP 
BEG) 
JSR 
JSR 
RTS 

JSR 
INC 
LDX 
CPX 
BNE 
LDX 
STX 
LDA 
STA 
JSR 
RTS 

JSR 
INC 
LDX 
CPX 
BNE 
LDX 
STX 
LDA 
STA 
JSR 
RTS 

JSR 
INC 
LDX 
CPX 
BNE 
LDX 
STX 
LDA 
STA 
JSR 
RTS 

JSR 
LDA 
STA 
JSR 
RTS 

INC 
LDA 
CLC 
ADC 
TAX 
INC 
LDA 
ADC 
CMP 
BCS 
CMP 
BCC 
STA 
STX 
JSR 

53P 



INC 
LDA 
SEC 

m 

INC 
LDA 
SBC 
JMP 

INC 
LDA 

SbS 

STA 



!r8wrk 

#*FF #51 
FNFL1 
TWRKRDP 
SETINCF 



INCDT2 

RNDMVLD 5INSTRCT 

RNDMVLD #52 

UA2 

RRVS1 

#0 

RNDMVLD 
LTRVALID.X 
(RDWRKP) Y 
INCDT ' 



jINSTRCT 
j#56 



INCDT2 

RNDMINV 

RNDMINV 

#*2E 

RRIS1 

#0 

RNDMINV 
LTRINVLD.X 
(RDWRKP) Y 
INCDT ' 



INCDT2 

>MV1V ; INSTRCT 
JMWIV #57 
#6 ' 
RRVIS1 
#0 

RNDMVIV 
LTRVIVLD.X 
(RDWRKP) Y 
INCDT ' 



INCDT2 

#0 ; INSTRCT 

< RDWRKP) ,Y #58 
INCDT ' ' 



CPWP 

<CPWP),Y 

RTWRKP 

CPWP 

(CPWP) ,Y 

RTWRKP+1 

#*B0 

ADDBER 

#*78 

ADDBER 

RTWRKP+1 

RTWRKP 

TDCALC 

HITBEND 

CPWP 
RTWRKP 

(CPWP) ,Y 

CPWP 
RTWRKP+1 
(CPWP) ,Y 
DBCHK 

CPWP 

(CPWP) ,Y 

RDP 
RDP 



; INSTRCT 
j#60 



; INSTRCT 
;#61 



; INSTRCT 
;#41 

i INSTRCT 
5 #62 
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2E28: 

mt\ 

2E2E: 
2E30: 
2E33: 

2E38: 
2E39: 
2E3B: 
2E3D: 
2E3F: 
2E41 : 
2E43: 
2E45: 
2E48: 

2E49: 
2E4C: 
2E4F: 

2E50: 
2E52: 

m 



08 
08 
01 
85 01 



6 

& 



20 D9 2E 
60 

E6 08 
A5 Op 

?1 08 

mi 

85 01 
20 D9 
60 



60 



99 
84 



:59: 
!5C: 
:5E: 

ft! 
65: 



2E69: 
2E6B: 

2E74: 
2E77: 
2E7A: 
2E7D: 

SfS&i 

2E83: 

Ml\ 

2E88: 
2E8A: 
2E8D: 

2E8E: 



2E97: 
2E99: 
2E9B: 
2E9E: 

2EA2! 
2EA4: 
2EA5: 
2EA7: 
2EA9: 



2EAF: 
2EB0: 
2EB1 : 
2EB3: 



2EBA 
2EBC 
2EBE 



8D 
20 
60 



2E 



A9 00 
8D 2B 2F 
99 2E 



20 94 2E 
Bl 04 
09 80 
91 04 
20 99 2E 
60 



2E66: 4C 59 FF 



A9 40 
85 01 

A| 

8D 2A 2F 
8D 2B 2F 



81 2B 2F 
60 

A2 80 
DO 02 
A2 01 
8E 2C 2F 




8E 2D 2F 
A2 FF 
86 02 
86 04 
A2 77 
86 03 



583 



13 



INC CPWP 
LDA <CPWP>,Y 
ADC RDP+1 ' 



tR p * 



DPWRK 



SUBBYT 



SULDCD 
MWLDCD 

STHI6H 
QUIT 



INC CPWP 

LDA RDP 

INC CPWP 

LDA RDP+1 

SBC <CPWP),Y 

STA RDP+1 

TRDPWRK 

JSR INCDT 

JSR SETINCF 
RTS 

LDA «0 

STA MPFLAG 

JSR INCDT 
RTS 

JSR 1NCDT2 

LDA <RTWRKP),Y 

ORA «*80 

STA (RTWRKP) ,Y 
INCDT 



JMP *FF59 



*~COMMON~ROuf InIs~* 
« « 



RSETUP 




CLRMPFL6 LD: 



594 




RTS 


595 






596 


SETINCF 


LDX 


597 




BNE 


598 


SETINCN 


LDX 


599 


SIS1 


STX 


600 




RTS 


601 






602 


INCDT3 




603 




^ 


m 


INCDT2 


RTS 
LDX 


606 




BEQ 


607 


INCDT 


LDX 


608 




STX 


609 

!i? 




l!if 






BEQ 


612 


1L1 


RTS 


613 
614 
615 
616 


IS1 


INC 
INC 
LDX 
CPX 


617 




BNE 


618 




PLA 


619 




PLA 


620 
621 


HITBEND 


U! 


622 




LDX 


623 




STX 


624 




STX 


625 




LDX 


626 




STX 



#$40 
RDP+1 

MODE 
MPFLAG 
ENDBFLAG 
TRDPWRK 



*0 

MPFLAG 



#$80 
SIS1 
#$01 
MNBFLAG 



MNBFLAG 
INCDT 

MNBFLAG 

IL1 

#0 

MNBFLAG 
RTWRKP 
RDWRKP 
I SI 

RTWRKP+1 
ILl 



RDWRKP 
RTWRKP 
#$77 
RDWRKP+1 



; INSTRCT 
;#63 



; INSTRCT 
| #71 



\ INSTRCT 
;#73 



;INST#75 



5 SETUP 
THE 

BYTE 
! BUFFER 



; CLEAR 

Imp 

FLAG 

SET 

SE? CE 

NOFORCE 

INC 



INC 
T 



n 



A/ 



IME 

UFf 



FER 
OINTER 
IF 
MNB 

FLAG IS 
SET 
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2EC0 : A2 AF 

if 83; ft 05 



:EC5s AE 



EC8: 
ECA: 

Pi 

1 : 

3: 
2ED5: 
2ED8: 



! 



SI 



2F 
2F 



DO 

fi, 

A6 03 
86 01 
20 OB 2F 
60 




A6 

A6 8? 
86 09 
60 



20 06 2F 

IS 06 

A6 08 
86 06 
A6 09 
86 07 



2F 



2F 



if 

f 

32 



?! 



PATFSET 



TWRKRDP 



PATS1 



TWRKCPP 



TRDPSTR 



TSTRRDP 



Ml 

LDX 
BNE 
INC 

HS 

LDX 
STX 
JSR 
RTS 



TRDPWRK PHA 
LDA 
STA 
LDA 
STA 
STA 

CLC 
ADC 
STA 
PLA 
RTS 

TDCALC LDA 



TCPPWRK 



TWRKCPPI JSR 
INC 



!T 
LDX 
STX 
LDX 
STX 
RTS 

LDX 
STX 
LDX 
STX 
RTS 

m 

LDX 
STX 
RTS 



IMODE DFB 
MPFLAG DF 
MNBFLAG DF 
ENDBFLAG DFB 
STORA6EL DFB 
STORAGEH DFB 
SUBPNTR DFB 
RNDMVLD DFB 
RNDMINV DFB 
RNDMVIV DFB 



#*AF 
RTURKP+1 



MPFLAG 
PATS1 
MPFLAG 
UpKP 

RDWRKP+1 
RDP+1 . 
TWRKCPP 



ttO 

MNBFLAG 
RDP 

RDWRKP 
RTWRKP 
RDP+1 
RDWRKP+1 

«$38 
RTWRKP +1 



RTWRKP 
KP 
KP+1 



#*3L 
RDWRKP+1 



CPP 
CPWP 
CPP+1 
CPWP+1 



TWRKCPP 
CPP 

CPWP 
CPP 
CPWP+1 
CPP+1 



RDP 

STORAGEL 

RDP+1 

STORAGEH 



STORAGEL 
RDP 

STORAGEH 
RDP+1 



O U 

! 8 



iPATRN 
FLAG 
SET & 

■TO RDP 



INSTRCT 
K40 

TRANSFR 

RDP TO 

DATA 

WORK 

AND 

CALC 

TIME 

WORK 



;CALC 
DATA 
WORK 

\m 

•WORK 



TRANSFR 
CPP TO 
CNTRL 
WORK 



; POINT 

AFTER 

COMMAND 

TRANSFR 

CNTRL 

WORK 
;TO CPP 

; INSTRCT 

•TRANSFR 
RDP TO 
{STORAGE 

s INSTRCT 
i jt43 

;TRANSFR 
STORAGE 
TO RDP 



*~LOOK~UP TABLeTfOR COMMANDS™* 
* « 



LTCINST DFB *10 
420 
*21 
*35 

m w 

DFB *31 
DFB *32 



DFB 

JF 



jANLDONE 
STRTSUB 
RTRNSUB 
SIMODE 
SIM0DE2 
CIMODES 
CIMODE 

iciMODER 
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2F3C: 
2F3D: 
2F3E: 
2F3F: 
2F40: 

m 

2F43: 
2F44: 
2F45s 
2F46: 
2F47: 
2F48: 
2F49: 
2F4A: 

2F4C: 
2F4D: 



42 
43 
50 



57 

58. 
60 

ft 

63 
70 
71 
73 
75 



0D 2D 
IB 2D 
24 2D 
38 2D 
4A 2D 
55 2D 
34 2D 
46 
D9 
CD 
14 2F 
IF 2 



2F7E 
2F80 



5B 
7B 
91 

fS 

E2 

E 



IF 
34 
49 
50 
59 
66 



2 
2 

2D 



713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
724 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 



DFB 440 

DFB 441 

DFB 442 

DFB 443 

DFB $50 

DFB 451 

DFB 455 

DFB 456 

DFB $57 

FB 458 

FB 460 

FB 461 

FB 462 

DFB 463 

pi m 

FB 473 

FB 475 



m 

B 



TRDPWRK 

TWRKRDP 

TRDPSTR 

TSTRRDP 

FINVLD 

FNONFF 

RRVAL1D 

RRINVLD 

RRVIVLD 

RRZERO 

ADDBYTU 

SUBBYTW 

ADDBYT 

SUBBYT 

SWLDCD 

MWLDCD 

STHI6H 

QUIT 



* LOOK UP TABLE FOR COMMAND * 

* ADDRESSES * 
* * 



LTAINST DA 
DA 
DA 

DA 
DA 
DA 



DA 
DA 



DA 

B 

DA 
DA 
DA 
DA 
DA 
DA 
DA 



ANLDONE 

STRTSUB 

RTRNSUB 

SI MODE 

SIM0DE2 

CIMODES 

CIMODE 

CIMODER 

TRDPWRK 

TWRKRDP 

TRDPSTR 

TSTRRDP 

FINVLD 

FNONFF 

RRVALID 

RRINVLD 

RRVIVLD 

Rr 

Al 
SI 

ADDBYT 
" 1BBYT 
ILDCr 
MWLDCI 
ST HIGH 
QUIT 




71 17 



2F82: 
2F85: 



07 OE 1C 
38 70 EO 



LOOK UP TABLE OF INVALID DISK * 
BYTE PATTERNS * 



LT FINVLD HEX O7OE1C3870E080 



*~LOOK~UP~TAiLi"FOR~RiPLACING~* 

* WITH VALID BYTES * 
* ft 



97 9A 
9D 9E 
A7 AB AC 
AD AE AF 
B6 



CB CD CE 
D6 D7 D9 
DA DB DC 
DF E5 E6 

F7 F9 FA 
FB FC FD 
AA D5 



LTRVALID HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



96979A9B9D9E9FA6 
A7ABACADAEAFB2B3 
B4B5B6B7B9BABBBC 
BDBEBFCBCDCECFD3 
D6D7D9DADBDCDDDE 
DFE5E6E7E9EAEBEC 
EDEEEFF2F3F4F5F6 
F7F9FAFBFCFDFEFF 
AAD5 



* LOOK UP TABLE FOR REPLACING * 

* WITH INVALID BYTES * 
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790 

80 81 82 791 LTRINVLD HEX 8081828384858687 
83 84 85 86 87 

88 89 8A 792 HEX 88898A8B8C8D8E8F 

8B 8C 8D 8E 8F 

90 91 98 793 HEX 909198A0A1A2A3B0 

AO Al A2 A3 BO 

CO 794 HEX B1B8C0C1C2C3C4C5 

C3 C4 C5 

C7 C8 795 HEX C6C7C8DOD1D8E0E1 

Dl 08 EO El 
Eg |3 E8 796 HEX E2E3E8F0F1F8 

797 

#~LOOK Up'tABlE FOR~RiPLACING~* 
* WITH VERY INVALID BYTES * 
* * 

!FF9: 80 81 82 803 LTRVIVLD HEX 80818283C0C1 
!FFC: 83 CO CI 




III 
68 



— End assembly — 
981 bytes 
Errors: 
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:ASM 



**************************** 



6502 ASSEMBLY SQURC 
COPYRIGHT (C) 1986 
ALL RIGHTS RESERVED 
"I LI CO MICROWARE 

iLD ANTHONY SCHNAPP 
INTED APRIL 23. 1986 



CODE 



* 
* 
* 
* 
* 
* 
* 
* 

**************************** 



3078: 
307B: 

18111 

3093: 
309B: 
30A3: 



58 



30 
32 
AO 32 
DO 32 
D4 33 
68 38 
El 38 



B2 35 
BO 34 
DA 34 
02 35 



FB 37 
B6 36 



19 
AC 

9 



3 

3D 
3D 



42 3A 
33 3E 

A6 DD 
DD DD 
AO AO 
C9 CI 
AO C4 
D4 CF 
CC D5 



A 
15 
16 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

1° 



* EDD 4 TEXT 
« 



TXABLE 



5 
60 
61 
62 

II 

65 
66 
67 
68 
69 

? 

72 
73 
74 
75 
76 
77 
78 
79 
AO AO 

DO CC 
AO B4 
FD DD 



TXT ASC 
AO FD AO 

S B§ Bf 

C9 C3 CI 
FB AO DO 
DD 



ORG $3000 




XAD 
TXADR 




>si 

JXRPM 

"XED 

~XEM1 

TXLP 
TXWO 
TXRUID 
TXSC 
TX1B2 
XST 
XET 
XAT 
XTRK 




TXCE 

IP 

TXCPYDSK 
TXRTB 
XIBPR 
X10PR 
TXIDPR 
CHP 
WPA 
XWPCNL 
TXWCNTL 
TXNOTE 
TXRPARM 
TXCPY1 
TXCPY2 
"XCPY3 
PLSLOT 
PCSER 

"&])]]| 



1=35 



ESSENTIAL DATA DUPLICATOR 4< PLU 
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AO AO 
AO AO 
AO AO 
B? B3 
AO AO 
AO AO 
AO AO 
AO AO 
D5 04 
CD C9 
C5 

AO AO 
AO AO 
D3 CF 




D2 C9 
Bl B9 B8 
AO AO AO 



AO AO AO 
C9 C3 CF 
CF D7 CI 



84 

AO B3 

&a 

A3 B3 

85 
AO AO 
AO C3 



86 
AO FD 
C6 D4 



B3 B7 
CE CF 
AO D3 
B5 B2 

AO CE 
CI cc 

61 tt 

AO AO 
D7 CI 
AO C4 
CI AE 
DO DO 



AO C3 
AO CA 
CE C2 



B7 
AO 
D5 



CI 

C9 
AO 



AO 
D2 
CF 
AO 
DD 

CI 
C8 
AE 
C5 



AO AO 
CF DO 
AO A8 
B6 AO 
CF AO 
CI D2 
AO AO 
AO AO 
AO D2 



AO FD 

83 8 

CC C9 
B4 FB 
CO 

AO AO 
BO BO 



C9 C7 C8 
AO Bl B9 

65 



C9 
C3 



C9 
CF 



AO DO 



AO CI CC 
C8 D4 
D2 C5 
DE CO 
TXTS 
AO AO 



Bl 



5 

C 

4 D5 
D4 CF D2 
CC D5 D3 



TXTRK 
BO BO BO 



Bl 

Br 
B: 



82 M 
B2 B3 



B4 


ill 








Bl B 




B9 B 


CO 





ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



DD 

B2 B5 
DD 

B5 BO 

B? B5 
DD CO 

AO AO 
FD AO 

BD §0 



ASC 
ASC 
ASC 
ASC 



TXSLT ASC 
C9 C7 C9 
BD BO AC 
C4 D5 DO 



VERSION 4.2< PLUS) 



SERIAL NUMBER #000000 



APRIL 23, 1986 



UTILICO MICROWARE" 



3377 SOLANO AVE. , SUITEH352" 



NAPA, CALIFORNIA 94558]]" 



} {SOFTWARE) BY DONALD A. SCHNAPP] 



HARDWARE BY CHARLES J. ROSENBERG] >" 



COPYRIGHT <C> 1986 UTILICO MICROWARE" 



ALL RIGHTS ARE RESERVED A 3" 



ASC "& ! } ESSENTIAL DATA DUPLICATOR 4< PLUS] 3' 



0000000000 1111111111 2222222222333333" 



ASC "TRK : 1 234567890 1 234567890 1 234567890 1 23453" 



" .000" 
° .25<]" 
" .50(]" 
" .75(13" 



} ORIGINAL :S=0,D=0 DUPLICATE :S=0 ,D=0< <0) 
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32BB: CC C9 C3 CI D4 C5 BA D3 
32C3: BD BO AC C4 BD BO FB AO 
32CB: A8 



CE D5 AO AO AD DD 




DD 100^ TXMNJJ „ ASC "&]] - OPTION MENU -]]" 

AO AO AO AO AD AO 



101 ASC " 1. BACK UP A DISK]" 

Bl AE AO C2 CI 
D5 DO AO CI AO 
CB DD 

AO AO 102 _ _ M ASC " 2. CHANGE PARAMETERS] " 

® B fiE 68 Ef 61 

C1\CD C5 D4 C5 D2 D3 DD 

AO AO AO 103 ASC ■ 3. CHECK DRIVE SPEED] " 

AO AO AO B3 AE AO C3 C8 
C5 C3 CB AO C4 D2 C9 D6 
C5 AO 03 DO C5 C5 C4 DD 

AO AO AO 104 ASC " 4. DISK SCAN!" 

AO AO B4 AE AO C4 C? 
D3 C3 CI CE DD 
105_ ASC " 5. CERTIFY AND ERASE DISK] 




5 AE AO C3 C5 
9 AO CI CE 
J D3 C5 AO 

106 ASC " 6. CHANGE SLOTS AND DRIVES!" 




B6 AE AO C3 
C5 AO D3 CC 
CI CE C4 AO 



D6 C5 D3 DD 

, 68 6B -i 07 .- _ M ASC " 7. EXAMINE DISK DRIVE]" 

AO AO AO B7 AE AO C5 D8 
CI CD C9 CE C5 AO C4 C9 
D3 CB AO C4 D2 C9 D6 C5 

t A S 69 A° 6 r- ASC " 8. CLEAR ERROR CODES]" 

AO AO AO B8 Ar 
AO C! 
CF C' 

109 ASC " 9. QUIT A 3 

fit B A0 



110 
111 




> W** m asc PRESS <" 

DO D2 C5 D3 D3 

FLS "RETURN" 

13 m _ n ASC "> TO SELECT ft[3' 
CC C5 C3 04 



ASC " % <" 
FLS "0" 

ASC ">RIGINAL OR < 



D2 



t 68 8 & 

C5 D3 D3 AO 



FLS "D" 

ASC DUPLICATE DRIVE?] PRESS < 



INV "RETURN" 
ASC *> FOR 3" 



D2 



ASC "" INSERT 3' 



FLS "ORIGINAL" 
luPLICATE" 



"?l 



TXIBL 



345B: 
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131 ASC "3 1 

32 TXIB2 ASC " DISK INTO THE! 
C9 CE D4 CF AO 
C| Dj^AO AO AO I 

34 



33 TXIOD INV "ORIGINAL" 
01 OC 



35 TXIDD "DUPLICATE 
01 14 05 

36 ASC " DRIVES" 




3? TXIB FLS "BOTH" 
38 ASC " DISKS3" 



L R| TXI2 ASC " AND PRESS < 

349E: C4 AO DO D2 C5 D3 D3 AO 
BC 



141 INV "RETURN" 

142 ASC ">C3" 

m\ ^ e§ si D i 3 L 2s ibpr asc " insert 

34B9: 42 4F 54 145 FLS "BOTH" 



!||) g £5 U ffi tt Bl E! £S 




ASC " DISKS, THEN PRESS 

INV "RETURN" 
ASC ">E3" 



TXIOPR ASC "" INSERT 
FLS "ORIGINAL" 



C5 D3 



ASC " DISK; PRESS 

INV "RETURN" 

ASC ">[9" 

TXIDPR ASC "_ INSERT " 

FLS "DUPLICATE" 



D2 C5 D3 



ASC " DISK; PRESS 



INV "RETURN" 

ASC ">I3" 

AO AO ASC " ST* 

,0 A! 



: AO AO AO D3 D4 CI D2 D4 
: Ag D4 D2 CI C3 CB BA AO 



AO AO AO 143 TXET ASC " END TRACK: 3 

142: AO AO AO AO AO C5 CE C4 



i4A: AO D4 D2 CI C3 CB BA AO 

J52: CO 

3553: AO AO AO 164 TXAT ASC " STEP: 3" 

>56: AO AO AO AO AO AO AO AO 

>5E: AO AO D3 D4 C5 DO BA AO 

>66: CO 

165 

3567: DD DD AO 166 TXSY ASC "]) SYNCHRONIZE TRACKS? 3' 

356A: AO AO AO D3 D9 CE C3 C8 

m ei tf ei s p 9 zt es 

AO AO AO 168 TXNC ASC " NIBBLE COUNT?" 

AO A( 

&SEi 

DD AO AO 169 ASC "I < 



I5A0: 
I5A1: 



i 




"O/ 1 
A" 



D5 D4 CF 173 ASC "UTOMATIC/ 1 
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IB 



CI 



ci 

CI 



8! 



9 n C3 AF 



'■?! 



C^ A? CO 
AO AO 1?^ TXRT 

8 » « ft £S 84 

C3 CB D3 BF AO CO 
C5 D3 1?P TXY 



FLS 
ASC 



D4 

D2 



CF CO 
DS D4 



ft 

C3 CO 
TXM 



ASC 

ASC 
ASC 

ASC 



DD AO 
AO AO 
C8 CI 
D2 CI 
06 CI 
AO AO 

Ntt 

DO D2 



AO AD 

185 
AO AO 
CE C7 
CD C5 
CC D5 

18<5 
AO B2 
CF C7 
C5 CI 
AO D2 



Bl AE AO 
C5 AO DO 
D4 C5 D2 
C5 D3 



AE AO 
D2 CI 
CE CI CC 
CF D5 D4 



11 



81 



8 



D4 

88 



£8 



AO §3 AE AO D2 
F C7 D2 CI CD 
5 D7 D2 C9 D4 
CF D5 D4 C9 CE 



II h as a 8? 



D2 
C6 



AO 
D5 



8l 



88 



AO 189 
AO AO B5 
D5 D2 CE 
DO D4 C9 

AO 191 

61 8* 61 

AO C4 CF 
D4 CI D4 
CE C4 
DO 192 



C6 AO CE 
CI D2 D9 
AO 193 
AO AO AO 
D2 C5 D3 
AO D4 CF 
At DD DD 
AO 194 
AO AO AO 
AO AO AO 
AO AO AO 
AO AF DD 
AO 195 
AO AO AO 
AO AO AO 
AO AO AO 
AF DD 
AO \96 
AO AO AO 
D2 D2 C5 
CD C2 C5 

88 197 
AO AO AO 



AE AO D 
AO D4 C 

F CE AO 





TXNOTE ASC 

81 4 B 

C3 D5 CD 
C9 CF CE 



B 8 B 

C5 C3 C5 
AE 

8§ 88 tt 

AO Dl D5 
DD DD 



AO AO A 
AO AO A 
AO AF A 



AO AO AO 
AO Ar 
AF Al 



«• «8 88 



AO AO AO 
CE D4 AO 
D2 AO AO 



AO AO AO 



ASC 



ASC 



ASC 



"M" 

"ANUAD3" 



ASC '] 



BIT COPY TRACKS? 8" 



"YES3" 

"A^OMATICS" 
"MANUALS" 



TXCHPRM ASC "&]] 
AO AD AO 
C7 C5 AO 
C5 D4 C5 



ASC ■ 3 ] 



ASC "] 



ASC '3 



ASC "3 



ASC "3 



- CHANGE PARAMETERS - 



1 . CHANGE PARAMETER VALUES" 



2. REPROGRAM PREANALYZE ROUTINE" 



3. REPROGRAM PREWRITE ROUTINE 



4. RESET PARAMETERS TO DEFAULT 



5. RETURN TO OPTION MENU A 3" 



"3 REFER TO YOUR EDD DOCUMENTATION AND 1 



ASC "3 PROGRAM INFORMATION LISTS IF NECESSARY. 



ASC "] 



ASC 



PRESS <Q> TO QUIT.]]] 3 



/ /] 



/ /3 



CURRENT NUMBER /]" 



/] 



Page 65 



§??§ 

37A0 
37§D 



37CD 

mi 

37D9 



3819: 
181 C 

m 



3841 
3841 



\68 



W. 



1 



388C 



389F 
3 SAO 
38A3 



38E1 



3909 
39U 
3919 



:9 
:9 
:9 
19 
19 
194 
4 



1 



B 



88 



88 



S: 



§8 SI 88 88 88 

198 
AO AO AO Al 

Si 8? Be B< 



198 ASC 
AO AO 

»2 C5 
15 C5 



199 

!0Q_ JXUPARM ASC 



3 C8 CI CE 



201 

14 05 12 
202 
CI 



INV 
ASC 



9 



i!? TXUPCNL ASC 



C5 AO 



id ?? 



A 
D4 
CO 

1 



207 

AO AO 208 TXWCNTL 
CI CE C7 C5 AO 

•°0 9 5 
210 

C5 BA AO AO AO AO BD 




INV 
ASC 

ASC 
INV 
ASC 




TXRPARM ASC 
DO CI D2 
D2 D3 A 



C9 D4 
DD AO 



CB AO 
C9 C5 



C2 C5 C 
C5 04 AO 



AO AO D4 
C9 D2 AO 
CC D4 AO 
AO AO AO 



TXAD 

08 88 
D5 D4 C9 
D3 AO AO 



fit ft ti 88 11 a 



AO AO 
AO AO 
D2 D4 



:5 CI 



217 
AO B2 Al 

E! t; 81 

D3 CB 

.21 



a8 



AO AO 
C3 CB 



AE 

tf 

CO 



AO 
AO 

B 



AO 
D3 
AO 

C5 D3 AO 



TXADR 
AO AD AO 



AO C4 d: 



AO 

§8 



221 

1 AE AO C3 
H 8§ 84 



8 
8 



1 



■5 



81 

DD 



E AO C5 D8 
5 AO C4 D2 



223 ASC 
B3 AE AO D2 C5 
CE AO D4 CF AO 
C? CF CE AO CD 
DE CO 



CURRENT VALUE A 3' 



CHANGE 

"PARAMETER" 
" : =3" 

" CHANGE " 
"PREANALYZE" 
" BYTE: =3" 

CHANGE " 
"PREWRITE" 
" BYTE: =3" 



ASC 



ASC "&]] 



ASC " 3 ] 



ASC "] 



ASC "1 



ASC "&]] 



ASC 



ASC 



>>> PARAMETERS HAVE BEEN RESET <<<]" 



>>> TO THEIR DEFAULT VALUE <<<[3 



FLOPPY DISK UTILITIES -" 



1. DISK SCAN 1 



2. CERTIFY AND ERASE DISK 



3. RETURN TO OPTION MENU* 3' 



DISK DRIVE UTILITIES -13" 



1. CHECK DRIVE SPEED] " 



2. EXAMINE DRIVE!" 



3. RETURN TO OPTION MENU A 3" 
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3958 i 
395B: 

III! 

3978: 
2?7B: 
39§3! 
398B: 
3993: 
3999: 
399C: 
39A4: 
39AC: 
39B4: 
39BC: 

39BD: 
39C0: 

m 
m 

3916: 
39E9: 

mi 

39FD: 

m 



3A: 
3A: 



:0: 



3A42: 
3A45: 
3A4D: 
3A55: 
3A5D: 

3A5E 
3A<S1 
3A69 



3A81 
3A84 

m 

3A9C 



:9 
3AE1 
3AEF 

M 

3B07 
3B0D 
3B10 
3B18 
3B2Q 
3B22 
3B25 
3B2D 



3B40 
3B43 
3B4B 
3B53 
3B5B 



A<4 DD 
AO AO 

»» 

AO AO 
AO AO 
AO A 
C9 D 





AO C3 
D3 CC 
C4 AO 
AO AO 
AO AO 
CF D2 

9& 

AO AO 
AO AO 



DD lis 
AO AO AO 
D5 C9 D4 
D4 AO C4 
AD DD DD 
_226^ 

C2 
C9 D3 CB 
AO 227 

2 ai 

CD (*5 
IIP 

S!8 aS 2 ao 

& El &§ 

C4 D2 C9 
AD DD DD 
AO 230 
C9 C7 C9 

B BS CB 

AO 231 
A8 CD 
AO AO 
DD DD 
232 
9 
3 



TXQ ASC 
AO AD AO 
AC AO C2 
C9 D3 CB 



AO Dl D5 
C4 AC AO 
CF CF 04 

83 9 Sf 



ci 

CE D5 DE 



DO 



TXCS 
AO AD AO 
C7 C5 AO 
AO CI CE 

6 C5 D3 

D 



CE CI CC 
AO D3 CC 




CI 
AO 



B<3 



A6 DD 
AO AO 
Al 

8! 

DD DD 
CC CF 
AD AD 
AD At 





C9 CE 

8$ SB 

D5 DO 
AO C4 
Al AO 
BO AO 



Al DD 
AO AO 
AO AO 
AO AO 
CE C7 
D<S C5 
AO AO 
AO AO 
AO AO 
B9 B8 
DE CO 



33 

AO A8 C2 
AO AO AO 

BE 234 

tt S & 

CC CF D4 

2: 

DD 2: 
AO AO 

AO cr 

D3 237 
D7 AD AD 
AD AD AD 
AD AD AD 
AD AD AD 
C6 CI D3 
AO 238 
AO AO AO 
AO AO 

A 23$° 
AO AO AO 
Al AO AO 
AO AO CF 
CI CC AO 

240 
CC C9 C3 
D2 C9 D6 
AO AO AO 
D2 DO CD 
AO 241 
B2 B9 B7 
AO AO AO 

AO 242 
AO AO AO 
AO AO AO 
CC C5 AO 

So 243 
AO AO A 
AO AO A 
AE B5 AO 



C5 
CC 



PLSLOT 
C4 AO DO 



TXDSl 
AO AO 

5 AO 
AD 



AD AD 
AD AD 
AD AD 
AD AD 
D4 DD 

AO AO 
AO AO 
AO Al 



AO 

DD 

AD 
AD 

SB 



AO 
AO 
DD 




CI D4 C5 
CS AO AO 
AO B3 BO 
DD 

AO D2 DO 
AO AO AO 



AO AO AO 
AO D3 C9 
C4 D2 C9 



AO AO AO 
AO AO B 
D2 DO C 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



ASC 



'&]] - QUIT , BOOT DISK -II 



1. QUIT EDD, AND BOOT DISK] " 



2. RETURN TO THE OPTION MENU* 3' 



ASC "&3 3 - CHANGE SLOTS AND DRIVES -131' 



ORIGINAL DISK SL0T=3" 



(MASTER) DRIVE=3 3" 



ASC * DUPLICATE DISK SL0T=3 



(BLANK) DRIVE=" 



ASC "<]] EDD PLUS CARD SL0T=) A 3 



ASC "&]] 



ASC "3 3 SLOW 



CHECK DRIVE SPEED -3" 



■FAST 3 



i ii" 



! ! ORIGINAL DRIVE]* 



DUPLICATE DRIVE 



297 RPM 



300 RPM3" 



1 1 « 



SINGLE DRIVE] 



298.5 RPM A 3" 
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AO D3 

cIS 

AO D2 

CD DB 



AO 
CF 



ES 



A6 DD 
AO AO 

C? D6 
DD 

AO AO 



DO 244 

C4 AO C9 

DO 245 

246 
CF 247 
D3 CO 

248 
DD 24? 
AO AO AO 

8? SJ i" 

C5 AO A 



AO 251 
AO AO CI 
C5 AO C4 
D3 DO C5 

AO 252 
C9 D6 C5 
C4 AO C6 
CI D4 C9 

C8 253 
C8 CS D3 
C3 CB AO 
D3 C9 C2 

Dl 254 
D2 D4 C5 
C3 CB AO 
AO CF D6 

AO 255 
C9 CE C9 



TXDS2 ASC 
D3 BA AO 



TXRPM 
TXLP 



ASC 
ASC 



TXED ASC 
AO AD AO 
C9 CE C5 
AO C4 D2 
AD DD DD 



6? 



ID DD 



D2 
AO 

DE CO 



CD AO 
D4 C9 



C3 CB AO 
D4 D9 AO 



D6 C5 D2 
D2 C9 D6 
C5 C4 AO 



AO D3 Dl 

cc D5 c: 

CF CE Al 



D4 AO D4 

CI C3 C3 
CC C5 AO 

8? tt 81 

C5 D2 AO 
CD D5 CD 

88 8§ £J 



ASC 



ASC 



ASC 



AO AO 258 

8? 81 8 

AO CI C2 
BO AO D3 
D3 A9 DB 

8 ol% 

261 



TXEM1 ASC 

ft 88 81 

TXEM2 ASC 
AO CF DO 

D4 ci cr 




5 81 8 F 

O 

XL 

BC 



cP ( 



26 



AO 

OE 263 
08 05 04 
264 



5 D3 D3 AO 



AO AO 
AO 

57 52 
54 45 



AO 



if 



S3 



C4 
CB 



49 267 
6D 50 52 

C8 268 

49 269 
4E 41 4C 
C9 270 
DB CO 



TXWO 

4F 54 45 



D7 D2 274 
D4 C5 AD DO 
C3 D4 AO C6 



TXRUID 



B18P 



ASC 
FLS 
ASC 

I NY 
ASC 
ASC 
FLS 

ASC 
FLS 
ASC 



ASC 
FLS 



83 



" SPEED IS: 8" 
" RPM[ i" 
" L00PS3" 

"&]] - EXAMINE DISK DRIVE 



-]]] 



ASC " READ/WRITE TRACK ABILITY =]" 



AVERAGE DRIVE SPEED =] 



DRIVE SPEED FLUCTUATION =] 



ASC " HIGHEST TRACK ACCESSIBLE =]" 



ASC » QUARTER TRACK BLEED OVER =]" 



MINIMUM ARM PHASE TIME =] A 3° 



EXAMINING THE 3" 



<THIS OPTION TAKES ABOUT 60 SECONDS) [3 



"_ PRESS <" 

"RETURN" 

">, PROCESS IS 

"FINISHED" 
"C3" 

It ll 

"WRITE-PROTECT 

" THE " 
"ORIGINAL" 
" DISKI3" 

H II 

"REMOVE" 



ASC " UlRITE-PROTECT FROM " 
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3CEF 
3CF0 



3D1A 

3D1 

3D2 

3D2D 

3D35 

3D3D 



3DEF 
3DF2 
3DFA 



3E2C 




275 FLS "BLANK" 

ASC " DISKC3" 




A6 DD DD 278 TXSC ASC "&3 3 - DISK SCAN - A 3" 

AO AO AO AO AO AO AO AO 
AO AO AO AO AD AO C4 C9 
D3 CB AO D3 C3 CI CE AO 
AD DE CO 

279 

A<4 DD DD 280 TXCE ASC "&3 3 - CERTIFY AND ERASE DISK - A 3 

AO AO AO AO AO AO AO AD 

AO C3 C5 D2 D4 C9 C6 D9 

AO CI CE C4 AO C5 D2 CI 

D3 C5 AO C4 C9 D3 CB AO 

AD DE CO 

281 

EO AO AO 282 TXCE6 ASC " s SELECTED TRACKS CERTIFIED O.K. [3" 
AO AO D3 C5 CC C5 C3 D4 

$ Si 8 81 BI 61 8 g 

C9 C5 C4 AO CF AE CB AE 
DB CO 

EO AO AO l§4 TXCEB ASC " BAD DISK; CERTIFY HAS " 
AO AO AO C2 CI C4 AO C4 ' 
C9 D3 CB BB AO C3 C5 D2 
D4 C9 C6 D9 AO C8 CI D3 

06 01 09 285 INV "FAILED" 

OC 05 04 

DB CO 284 ASC "C3" 

A<S DD DD lis TXCPYDSK ASC "&3 3 - BACK UP A DISK - A 3" 

AO AO AO AO AO AO AO AO 
AO AO AO AO AD AO C2 CI 
C3 CB AO D5 DO AO CI AO 
C4 C9 D3 C| Q AO AD DE CO 

A<S DD AO 290 TXCPY1 ASC "&3 TRACK START: (RAW DISK BYTES) ] 3" 
AO 04 D2 gjj C3 CB AC D3 



D4 CI D2 D4 BA AO A8 D2 
CI D7 AO C4 C9 D3 CB AO 



C2 D9 D4 C5 D3 A9 DD CO 
DD AO AO 291 TXCPY2 ASC "] END TRACK: <RAW DISK BYTES)] 3" 
C5 CE C4 AO D4 D2 CI C3 
CB BA AO A8 D2 CI D7 AO 
C4 C9 D3 CB AO C2 D9 D4 
C5 D3 A 9 DD CO 

DD AO AO 292 TXCPY3 ASC "3 TRACK: TRACK LENGTH: 3 " 

AO AO AO AO D4 D2 CI C3 
CB BA AO AO AO AO AO AO 
AO D4 D2 CI C3 CB 
C5 CE C7 D4 C8 BA 

AO AO AO 293 ASC " DIFFERENCE:^ 1 

4 AO AO AJ ^ 





AO 

AO C4 C9 C6 C6 
CE C3 C5 BA DB 

DD DD 2?5 PCSER ASC "43 3 3" 

4C 55 29<S FLS "PLUS" 

297 ASC " " 

41 52 298 FLS "CARD" 

299 ASC " " 

|2 52 300 FLS "ERROR: " 

DD AO 301 ASC "33 EITHER THE EDD PLUS CARD IS NOT 3" 

C5 C9 D4 C8 C5 D2 AO 
" AO C5 C4 C4 AO 



AO CE CF D4 



CC 302 ASC " LOCATED IN SLOT* , OR THE PLUS CARD 3 " 

CI D4 C5 C4 AO C9 
D3 CC CF D4 A3 AO 
CF D2 AO D4 C8 C5 
CC D5 D3 AO C3 CI 

C9 303 ASC " IS NOT CONNECTED TO THE " 



CE CF D4 AO C3 CF 
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65 El SS S3 H El & M 

OF 12 0? 304 INV 
07 09 OE 01 OC 
AO C4 C9 305 ASC " DISK] " 

D3 CB DD 



F C3 
E AO 



AO 

C6 C! 



8 8 

AO AE DD 

8 8" 

DO C 

I .. 

CI D4 
DO D2 
DD 

1 1 1 



4o C3 CF CE 
C5 D2 AO 



E4 B 8? 63 8§ 



0? ASC 
"2 AO D4 CF 



CF D5 D2 AO 

bp ti s b; 



DD 
A! 



5 C4 
1 

D2 



01 EP 



1 Bi ES E! 

CF CE AO AD AO 
D3 D3 C9 CE C7 



:09 



El 



AO 
D4 
C9 



ASC 



ASC 



54 C8 [!§ DD 
AO AO C3 310 ASC 

9 B S§ S c? tt B? SS 

C4 D2 C9 D<5 C5 D3 AO CF 
DO 04 C9 CF CE AE DE CO 



ORIGINAL 



DRIVE CONTROLLER LOCATED IN SLOTS .] 



] REFER TO YOUR EDD MANUAL FOR PROPER]" 



PLUS CARD INSTALLATION - PRESSING] " 



<RETURN> WILL ENTER YOU INTO THE]" 



CHANGE SLOTS AND DRIVES 0PTI0N. A 3" 



— End assembly — 
3952 bytes 
Errors: 
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:ASM 



*««*#***#*******#*******#*#* 

* ESSENTIAL DATA DUPLICATOR 

* VERSION 4.2 STANDARD/PLUS 

* 6502 ASSEMBLY SOURCE CODE 

* UTILICO MICROWARE 

* DONALD ANTHONY SCHNAPP 

* PRINTED APRIL 23, 1986 
«***#**##*#*******#***#***** 



BO 4° 



*~PRiANALYzI"iijFFiR"* 
* B000 - tBOFF _* 

~ORG~ *i000~ 

PREANL2 |jp 01 



HEX 10101010101010 
HEX 1010101010101010 




10 10 10 10 10 



HEX 1010101010101010 



10 

2 HEX 1010101010101010 

10 10 10 23 HEX 1010101010101010 

10 10 10 10 10 

jO jO JjJ j»4 HEX 1010101010101010 

10 10 10 25 n HEX 1010101010101010 

10 10 10 10 10 



10 ljj lj) J6 HEX 1010101010101010 

19 12 12 V \ hex 1010101010101010 

10 10 10 10 10 

10 10 10 28 n HEX 1010101010101010 

10 10 10 10 10 

19 19 12 V » hex 1010101010101010 

10 10 10 10 10 

10 10 10 30 HEX 1010101010101010 



18 8 "!, 

10 10 10 10 



10 



HEX 1010101010101010 



10 10 10 

10 10 10 32 HEX 1010101010101010 

10 10 10 10 10 

Q 10 10 33 HEX 1010101010101010 

14.. HEX 1010101010101010 



18 i8 

10 10 10 10 10 
35 

M nj 36 * *80 = CHANGE INVALID TO FF'S 

BO 80: 32 50 36 37 ^ HEX 325036FF01211010 
B083: FF 01 21 10 10 

B088: 10 10 10 ,38 HEX 1010101010101010 
B08B: 10 10 10 10 10 
3? 

40 * *90 = GENERIC BITSLIP PRTCTN 

41 * USED ON SOME EPYX SFTWR 

42 * SIMILAR TO GENERIC BIT 

„, _ _ 43 * -SLIP PROTCTN <BELOW) 

B090: 31 D5 AA 44 HEX 31D5AAAD60F600E7 



B093: AD 60 F6 00 E7 
98: E 

B09B: 03 00 35 01 01 



B098: E7 E7 61 45_ HEX E7E7610300350101 



0A0: 01 00 00 46 HEX 0100000200010200 

B0A3: 02 00 01 02 00 

B0A8s 01 02 00 47 HEX 0102000101002110 

BOAB: 01 01 00 21 10 



* *B0 = GENERIC BITSLIP PROTECTN 

* USE BY LOCKSMITH 5.0 
« (COMPUTER) ADVANCED IDEAS 

J2 * MINDSCAPE 
BOBO: 31 D5 AA 53 HEX 31 D5AAAD60F800E7 

B0B3: AD 60 F8 00 E7 

B0B8: E7 E7 35 54 nn HEX E7E7350102000102 

BOBB: 01 02 00 01 02 

BOCOs 00 01 01 55_ HEX 0001010000002110 

B0C3: 00 00 00 21 10 
56 

„„„„ „ = 57 * *C8 = LOCK-IT-UP PROTECTION: 
B0C8: 31 D5 AA 58 HEX 31D5AA967070AAAA 

BOCB: 96 70 70 AA AA 

BODO: AF AA 71 59 HEX AFAA71D5AAAD6056 
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BQD3: 



BQFO 
B0F3 



08 
OB 

IS 
I 



18 

38 
3B 

il 
ii 

50 



I 



4 

A3 
A8 
AB 
BO 



Eg 



D5 AA AD 

S8 3 



ft 

00 

!! 
18 



03 00 
61 02 
21 31 


35 
10 

18 18 



n 



60 56 

60 
21 10 

61 



00 35 

6f 4 02 
65 

10 10 
lO^lO 



ft 18 18 

10 10 10 



10 10 

1 

18 



jO 

18 18 18 



10 
10 

1 

10 



10 
10 
10 
10 
10 



10 10 



10 
10 
10 
10 
10 
10 



18 18 18 



10 
10 
10 

10 

1 



1 
1 

Is 

10 



10 10 

10 10 

10 10 

10 

1 

8 

1 

10 

10 

10 

10 






8 

10 10 



10 
10 

1 



1 
1 

10 



1 

10 10 
10 10 

10 10 



818! 

8 8 
8 18 18 



67 

If 

71 



10 
74 

10 10 
75 

10 10 

.5 8 .o 

79 

10 10 
80 

10 10 
81 

10 10 

,8 2 .o 

83 

10 10 
84 

%" 

10 10 
10 10 

10 10 

i8 9 io 

90 

10 10 

1Q 10 
92 

10 10 

,S 3 .o 

94 

10 10 

25 

I 10 

10 10 

i§ 7 io 

98 

10 10 
99 

10 10 

00 
10 10 

01 
10 10 



?0 
10 




HEX 0035585858582110 

* *E0 = CLEAN TIMING BITS: 

HEX 3103000361020035 

HEX 0121310003006102 

HEX 0035002110101010 

HEX 1010101010101010 



*~PREWRITE"iuFFER * 
* *B100 - iBIFF * 

CONTRLP" 



101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 



•"pROGRAMVARIAiLii"* 
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00 08 
80 0! 




B22A 
B22 
B22 



IS! 03 



B23A: 
B23B: 
B2r 

B2: 






ss 



B261 : 
B264: 

B265: 
B268: 



B23E: { 


JO 08 


B240: f 


81 


B242: 




B244: 80 03 


B246: 80 08 




1C 1? 05 
05 

OA 05 05 
05 

05 04 03 
03 



5C 2C ID 
00 

BO B2 B5 
B7 




h 

12 
13 
14 

J5 
16 
17 

1? 

9° 
22 
23 
24 
25 
26 

g 

29 
30 

11 

35 
36 
37 
38 



*B200 - $B2FF 

"io 
$?oo 

$980 
$A00 
$A80 
$B00 
$B80 
$828 
*8A8 
$928 
$9A8 
$A28 
$AA8 
$B28 
$BA8 
$850 

m 

$9D0 
$A50 
$ADO 

nn 



* lookup'table for"* 

* divide routine * 

* * 

DA 



;LOOK UP 

MP 

;Vtab 

SCREEN 
POSTION 




DF 
DF 



10000,1000,100,10,1 



LE FOR * 
OPTION * 



DFB 

m 

DFB 
DFB 




jpLUSCRD 



K UP TAB 
D/WRITE i 
INE DRIVE 




LTEA 



B269: 00 00 00 



167 

168 

169 
170 
171 
172 
173 
174 

175 
176 

w 

180 

1§1 
182 
183 
184 



DFB $FF,$FF,$FE,$EE 

DFB $FC,$CC,$F8,$88 

DFB $F0 ,$E0 ,$C0 ,$80 

DFB 

DFB 28,25,5,5 jTOGTHR 

DFB 10,5,5,5 ; EQUALS 

DFB 5,4,3,3 ;100Z 



*~L06K~UP~TAiLi FOR DRIVE"* 
*_SPEED CALCULATE_ROUTINE * 

LTDV ~DFB~~$5C,$2c7$lD^$00 



LTQ 



DFB $B0,$B2,$B5,$B7 



*- 

* Tl 

* A I 

* AND GENERAL WORKSPACE DURING * 
•PROGRAM EXECUTION. * 

LTEM~" DFB 0^0^0,0 



Page 73 



iff 

J6F 
1270 
1271 
1272 

B275 
B276 



127? 
17A 



J27C 
B27D 
J27E 

ll 

111 



t2§! 
I28A 

m 



I28F 
1290 

m 



!9! 
B29<& 
J297 
B298 



:29C 
29D 



B2A1 
32A4 



>A9 



|2A 
B2A 



00 00 
00 

8 



00 
00 
00 
00 
00 
00 
00 
00 
00 

11 



00 

18 



J8 

$ 30 
Bl B2 B3 
B4 B5 



IB 

IS 
3 

ICO 



82 3 

(2C6 



260 
261 



185 
186 
187 

!§? 

190 LASTHP 

191 KWA 

192 TWIN 
CNMBR 



199 SCFLTP 

200 SCVLPNT DFL 

201 PT RANGE DFB 

202 SPDLPNTR DF 

203 POS 




F 
DFB 
DFB 
DFB 
DFB 



m 

DFB 
DFB 

"B 
1 

219 tlenl dfb 

220 tlenh dfb 
wrkpntr dfb 

w|l BfI 

WSH DFB 

5r"kVnTR2 BfI! 

DFB 



221 



'HEX 
CNVDEC 



TTLENL 
"TLENH 



DFB 

BP 



ARM 
ARMCVH 
262 WRKSPC 

63 TRKDSL 

64 TRKDSH 

65 TRKTSH 

66 TRKDEL 

67 TRKDEH 
268 TRKTEH 



BP 
BP 

ITR DFB 

E 

DFB 

B EB 



207 DCCSLOT 

208 DRVCOUNT DFB 

m mi m 8 

211 STARTRK 

in mih» 

216 NBLCFLB 

217 TIMEFL6 

218 DRVLETTR 



ORB SLT 
ORG DRV 
DUP SLT 
DUP DRV 
PLUSSLT 
ONE/TWO 
ORB TRK 
DUP TRK 
START 
END 
STEP 



$39,*30 

*B1 ,*B2,«B3,«B4,*B5 
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D£W a 


nn 


bopo • 


UU 


DOpQ ■ 


nn 
uu 


porA « 
□ ZLH i 


nn 


B2CB: 


00 


B2CCi 


00 


B2CD: 


00 



269 TRKLL DFB 

270 TRKLH DFB 

271 ERRORCD DFB 

272 EDDVRSN DFB 

273 EDD3NL DFB 




74 EDDSNM DFB 

275 EDDSNH DFB 
276 

277 * * 

278 * PARAMETER BUFFER * 

279 * *B300 - *B3FF * 

280 — 

281 SPAGE DS *B300-SPA6E 
282 

233 * 

Hi * FARMS *00-$08 = SYNCTBLE 

284 * THESE 9 PARAMETERS MAKE UP THE 

287 * RAW DISK BYTE PATTERN WHICH 

288 * EDD USES FOR SEARCHING, TO 
2^9 * SYNCHRONIZE EACH TRACK. 

291 * THIS PATTERN MUST BE FOUND ON 

!94 * WHICH HAS A DEFAULT 'VALUE OF 

95 « TRACK 0. 

1?7 * USING THE VALUE "7F" IN THIS 

298 * TABLE, REPRESENTS A "WILDCARD" 

299 * AND WlLL MATCH ANY DISK BYTE. 

300 * 

301 « THIS TABLE HAS BEEN PRESET TO 

302 # SYNCHRONIZE OFF OF SECTOR 

303 * OF TRACK 0. 

304 * 

j)5 AA 96 305 SYNCTBLE DFB *D5,*AA,*94 f *7F 

7F AA AA 306 DFB *7F,*AA,*AA,*AA 

AA 



307 ) DFB *AA 

309 * 

310 * PARM *09 = TIMEBITS 

Hi * THIS IS THE AMOUNT OF TIMING 

313 * BITS THAT A TIMING BYTE IS 

314 * GIVEN WHEN EDD READS THE TRACK 

315 » USING THE "NORMAL" MODE. SINCE 
314 * MANY DISKS USE TWO TIMING BITS 

17 * INSTEAD OF ONE, YOU MAY NEED 



OTIs^ed"? a^hE* m 

IS NOT USED. ' 



319 * Tl 

320 * CHECKING TIMING BITS. 

321 * 

322 * WHEN USING EDD 4 PLUS'S BIT 

323 # COPY MODE, THE ACTUAL AMOUNT 

W ** 

326 « 

327 *• 

B309: 01 328 TIMEBITS DFB *1 



*~PARM"*0A~="ipicrAL"cONrROL~ 

:33 * THIS PARAMETER AFFECTS THE 

34 # AMOUNT OF BYTES WRITTEN FOR 

335 * EACH TRACK: 

3? * *00 = WRITE THE AMOUNT OF 

38 * BYTES DISPLAYED FOR THE 

"9 * TRACK LENGTH. 

* 



141 * $80 = WRITE A FULL TRACK OF 

342 * _*1BFF BYTES WHEN POSSIBLE 

B30A: 80 §44 SPCLCNT ["DFi""*io~~ 

B30B: 00 346 DFB *0 ; UNUSED 

347 

348 g __, 

349 * PARM *0C-*0D = ABSLNGT 

350 * 

351 * IF THE TRACK LENGTH IS TO 

352 * BE AN ABSOLUTE FORCED LENGTH. 
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* <SEE FARM $12). USE THESE TWO 

* VALUES AS THE ABSOLUTE TRACK 

* LENGTH. 



* 



B30C: 72 357 ABSLN6TL DFB $72 

B30D: 18 358 ABSLNGTH DFB $18 
35? 

m\ n m m a in 



364. *~PARM _ ilO _ = MINLNGTH _ 

3^ * THIS VALUE REPRESENTS THE 

367 * HIGH BYTE OF THE LOWEST TRACK 

328 * LENGTH ACCEPTABLE. 

B310: 14 %% MINLNGTHDFB il 4 



3^ *~PARM *1 r~=~MAXLN6TH~ 

375 * THIS VALUE REPRESENTS THE 

376 * HIGH BYTE OF THE LARGEST 

377 * TRACK LENGTH ACCEPTABLE. 

B311 : 1C 379 MAXLNGTH~DFi ilC 

18? * 

382 * PARM *12 - PLNGCNTL 

384 * WHICH TRACK LENGTH ROUTINE(S) 

5 * TO USE AND ORDER OF ROUTINE IF 

1 * AN ERROR OCCURS: 

3 * BIT POSITION: 7654 3210 

) * routine: iiii'iiix 

2 * ROUTINES AVAILABLE: 

1*1= DATA PATTERN 

3 * LOCATE TWO MATCHING DATA 
i * PATTERNS <SEE PA RMS *80- 
? * -$FF) THEN SUBTRACT THEIR 
3 « DISTANCE TO OBTAIN TRACK 
9 * LENGTH . 
} * 2 = UNIQUE DATA PATTERN 

1 * LOCATE A UNIQUE DATA 

2 * PATTERN.THEN SEARCH FOR A 

3 * MATCHING PATTERN. THEN 
* * SUBTRACT THEIR DISTANCE 
5 * TO OBTAIN TRACK LENGTH 
i * (USES NO ADDITIONL FARMS) 
' * 3 = ABSOLUTE FORCED LENGTH 
3 * THE VALUES FOUND AT PARMS 
? * *0C-«OD ARE USED FOR THE 
3 * TRACK LENGTH. NO TRACK 

1 * SEARCHING IS NECESSARY. 

2 * 

3 * EXAMPLES* 

4 * 0111 0000 = ORDER: 2,1,3 

5 * 1000 0000 = 3 ONLY 
i * 
7 * EDI 



B3i: PLNGCNTLDFi 440 



*"pAWl"*ri"="piNDCNfL"' 
* WHICH TRACK END ROUTINE(S) TO 



* USE AND ORDER OF ROUTINES IF 

* AN ERROR OCCI ~ 

* BIT POSITION: 7654 3210 

* ROUTINE: 3213 213X 

* ROUTINES AVAILABLE: 

* 1 = TIMING GAP 
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* OF THE LARGST TIMING GAP. 

* 2 = DATA PATTERN 

* USE THE TRKSRCH INSTRCTN 

* ROUTINE (PARAMETERS *80- 

* -*FF> FOR LOCATING THE 

* TRACK END. 

* 3 = DATA GAP 



pgjNi 

* 



* JUST BEFORE THE 1ST 

* OF THE LARGEST DATA 




450 * EXAMPLES: 

% 5 8?18 48i8 = 3Wv s - 2 - 3 

453 * 

454 * EDD HAS BEEN PRESET TO USE THE 

455 * "TIMING GAP" ROUTINE: 

4|£ * *20 = 00100000 = ROUTINES 

B313: 20 458 PENDCNTL~DFi *io~ 



m is 

DFB *0 





465 * PARM *17 = PTGAPM1N 

466 * 

467 * 

468 * 
4jjj * 

471 * Ah 

472 * CONTAIN. IF NOT, THE TIMING 

473 * ROUTINE FAILS. 

474 * 

B317: 02 475 PTGAPMIN DFB *2 

476 

B318: 00 477 DFB *0 ;UNUSED 

ft , 

48jj * PARM *19 - RERRORS 

482 * THE MAXIMUM AMOUNT OF ATTEMPTS 

483 * TO READ THE TRACK PROPERLY. 

484 * BEFORE A READ ERROR IS FORCED 

485 * 

B319: 03 486 RERRORS DFB $3 



«~PARM *1A~= WERRORS 



491 * THE MAXIMUM AMOUNT OF ATTEMPTS 

492 * OF WRITING THE TRACK PROPERLY. 

493 * BEFORE A WRITE ERROR IS FORCE6 



B31A: 03 495 WERRORS DFB 
496 

497 * 

498 * PARM $1B = TRKSYNC 



499 * 

500 * THIS IS THE TRACK TO SYNCHRONZ 

501 * FROM WHEN USING THE SYNC TRACK 
2 * MODE. 



503 * 

504 * THIS TRACK VALUE IS THE ACTUAL 

505 * QUARTER TRACK TO USE. (IE, IF 

506 # THE VALUE OF $04 IS ilSED. THIS 



507 * REPRESENTS 4 QUARTER TRACKS, & 

508 * TRACK_M1_^JLL BE THE "SYNC 



ij * FROM TRAC 

B31B: 00 511 TRKSYNC DFB *0~ 
512 

513 * 

514 * PARM *1C = MNBTEQLN 



515 




BYTES DON'T MATCH UP, THE 
LENGTH IS CONSIDERED INVALID, 
WHICH A READ ERROR OCCURS. 



B31C: 10 522 MNBTEQLN DFB $10 
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PARM *80-*BF = TBLEND 



it 



5: 



WHEN USING A RAW DISK 
PATTERN TO LOCATE THE TRACK' 
END ?PARM $13). THIS TABLE 
IS USED FOR THE RAW DISK BYTE 
PATTERNS. 




THIS 
FASH 
PREW 
THE 



iff 



BLE IS USED IN THE SAME 
AS A PREANALYZE OR 
E ROUTINE (AS DESCRIBED 
~DD OPERATING MANUAL) 



IN 

THE MAIN DIFFERENCE HERE, 
IS THIS ROUTINE IS DONE 
DURING THE ANALYZE ROUTINE 
AND THE INSTRUCTION "*73" SETS 
A "FLAG" FOR FINDING THE END 
TRACK . 

PARAMETER $80 POINTS TO THE 
FIRST POSITION OF THE TABLE. 
WHICH HAS A DEFAULT VALUE OF 
*81 , MEANING THAT PARAMETER 
$81 IS THE FIRST INSTRUCTION 
BYTE FOLLOWED. 

THE PRESET ROUTINE STARTS AT 
PARM $81. AND IT FINDS THE 



OCATING A DATA 
INTjNG T0_THE 



BYTE LOCATED AFTER A DATA 

* FIELD EPILOGUE. 

* REFER TO THE "INSTRUCTION 

* TION (INCLUDING SOME EXAMPLES) 

* 0F INSTRUCTION BYTES^__ 

t blend "pi *iiio-TBLEND 

HEX 81D5AAAD71DEAA73 

HEX 2110101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 

HEX 1010101010101010 



B3C0: CI 31 



a 



PARM *C0-*FF = TRKLENGTH 

WHEN USING A RAW DISK BYTE 
PATTERN TO LOCATE THE TRACK'S 
LENGTH (PARM $12). THIS TABLE 
IS USED FOR THE RAW DISK BYTE 
PATTERNS. 



Mi 

ABOVE . 



ffi B AS 



4§E 



USI 
Tl 



!D IN THE SAME 
iLEND TABLE 



PARAMETER *C0 POINTS TO THE 
FIRST POSITION OF THE TABLE. 
WHICH HAS A DEFAULT VALUE OF 
*C1 , MEANING THAT PARAMETER 
*C1 IS THE FIRST INSTRUCTION 
BYTE FOLLOWED. 



SET ROUTINE HERE. 
LOCATES THE ADDRESS FIELD 
OF SECTOR ZERO, THEN LOOKS 
FOR THE REPEAT! SUBTRACTS 
THE ^IgTANCE FROM THEIR 



POSIT 
LENGTH. 



TO CALCULATE TRACK 



TBLLNGTH HEX C131D5AA96707070 
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AA 96 70 70 70 

70 AA AA 603 HEX 70AAAA347321 1010 

36 73 21 10 10 

ljj JO lg 204 Q HEX 1010101010101010 

lo lS lo '605° HEX 1010101010101010 

10 10 10 10 10 

18 18 18 i^°fo HEX 1010101010101010 

10 10 10 <SQ7 HEX 1010101010101010 

i§ i§ IS ii°io HEX 1010101010101010 

10 10 10 60? HEX 1010101010101010 

10 10 10 10 10 



— End assembly — 
1024 bytes 
Errors: 
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6502 ASSEMBLY SOI 
COPYRIGHT <C> l r 
ALL RIGHTS RESEI 
UTILICO MICROWARI 
DONALD ANTHONY SI 
PRINTED APRIL 23 



WM 



**************************** 

* ESSENTIAL DATA DUPLICATOR 

* VERSIQN_4.2 STANDARf 

* 
* 
* 
* 



IHNAPP 
1986 



**************************** 

****************** 
* DRIVE ROUTINES * 
****************** 

*~JUMP~TAi[i~* 
* * 



81 B8 
CF B9 



1 1? 



AD 84 B2 
OA 



A? 40 
85 01 
AO 00 
84 00 



11 



C8 

DO ED 

h tt 

A9 40 

SI 85 

A? AF 



9 



84 00 
84 04 
84 U 



8° 



A5 02 
91 08 

84 00 
A9 F8 

85 02 



CO 
CO 



244 



DCCDUMP 



LOOP1 
CHKRDY 



DNDUMP 



LOOP3 
L00P2 

STORE 



ASL 
TAX 



STY 
LDA 



ORG DRVR 

JMP TDUMPW 

JMP TDUMPP 

JMP ARMV 

JMP ARMV2 

JMP ARMSPD 

JMP WRITETRK 

JMP DCCDUMP 

JMP TDUMPV 

JMP TRKDS 

JMP PCRDCHK 



LDA DCCSLOT 
ASL A 
ASL A 
ASL A 
A 



LDA tt*40 

STA *1 

LDY #0 

STY *0 

m ii7F 

BEQ DNDUMP 

fepL CHKRDY* 

m my 

I NY 

BNE LOOP1 

bW£ CHKRDY 

LDA #$40 

STA *5 

STA %? 

LDA *4AF 

W %l 

m is 




BNE LOG 

LDA $0 

STA <*6) ,Y 

LDA *2 

STA <*8) ,Y 

SSf8 



B700 

W> 

B706 
B709 
B70C 
B70F 



B718 
B71B 
B71E 
B721 
B724 
B727 

DUMP A 

TRACK 

USING 

THE EDO 

PLUS 

CARD 



:n" 



w 

iNDRD 



TRACK 
{FORMAT 



STA *2 
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Si 



6 

DO 01 



INC %6 



08 



C6 09 
A5 07 
C5 09 
90 E9 
60 

A9 00 
85 00 
A9 40 
85 01 
A6 



E6 01 
A5 01 

SS if 



DO F5 
E6 01 
E6 03 



B7 




B8 



L00P4 



DCL3 



304 DCL2 
307 

P 

310 
311 

P 
§3 

316 

317 DCL1 



DCL4 



||J TDUMPV 

334 
335 
334 

337 TDVL 



348 MODDUMP 
349 

350 TDUMPU) 



360 TCL1 

361 

362 

363 TCL2 




STA *9 

LDA <*6),Y 
TAX 

LDA <*8>,Y 

m <M);y 

STA <$8> ,Y 



I NY 

ffi W 

DEC *9 

LDA *7 

CMP *9 

BCC DCL1 
RTS 



US 



CL1 



*8 



LDA 41440 

STA *1 

tK flHcx 

1% IJft.Y 
INY 

BNE TDUL 

INC *1 

LDA *1 



FOR 

VERFYNG 
WRITTEN 
TRACK 



♦B800-M0DDUMP 




:DUMP 
WHOLE 
TRACK 



INTO 
; MEMO 



RY 



<»0) ,Y 

TCS1 

#0 

(*2),Y 
TCL1 

!| 

Hbo 

TCL1 



;END 
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1840: 



B845: 
B846: 
B847: 
B84A: 
B84C: 
B84F: 
B851 : 
B854: 
B856: 
B859: 
B85B: 



5? 80 
91 00 

tin 

AO 00 

84 00 
A9 7F 

85 02 
A6 10 
EA 

85 03 



CO 



:C CO 
& CO 
IC CO 



?! 



m 

1881: 
1883: 
:886: 
1888: 



10 D4 
6Q 



CE 



8f 



85 



A4 12 
CO FF 
DO 07 
48 



B2 



33 BB 



BB 



20 



4C BF B8 

81 



1 B9 



B8CE: 

m 

B8D3: 
B8D4: 
B8D6: 



4C AB B: 

IMS 

29 07 
05 10 
A8 



TCS1 



383 TDUMP 

384 TDR 
385 

386 

387 TDL1 



TDS2 



4 
414 

415 ARMV 



AM 



AML1 



AMS2 



BMI 
LDA 



faB 

LD 



fa 



:EQ 
AND 



RTS 

ORA tt*80 
STA <*0>.Y 

LDA «$60 
STA *1 
«0 
*0 

»*7F 
*2 

LDX CSLT 
NOP 

STA *3 

NOP 

NOP 

LDA *C08C,X 
BMI TDS2 
LDA *C08C,X 



08C,X 



BMI TDS3 

LDA *C08C,X 

BMI TDS3 

DA *C08C,X 

MI TDS3 ' 

DA *CQ8C,X 



I 



JBl2 
STA <*0),Y 
I NY 

Rffa mi 

AND *2 
TJA <*0>,Y 

TDL1 

f !>L2 
RTS 



DY m 
EQ AMS1 



ARMWAITR 



LDY CTRK 

CPY **FF 

BNE AM 
PHA 

b$ $ 

PLA 

STA WANTTRK 



CTRK 
AT 



RMDQNE1 
#*FE 
STA WANT HALF 
LDY ttl 
STY PHSLST 
LDA CTRK 
AND #*FE 
JSR ARMD01 
LDA CTRK 

LF 



BEQ Al 

BCS AMS2 

INC CTRK 

INC CTRK 

JMP AMS3 



rSR ARMDO 
IMP AML1 
LDA WANTTRK 
CTRK 
ARMDONE 

:tri 



CMP 
BEQ 

STA CTRK 
AND #407 
ORA CSLT 
TAY 
CLC 

ADC #2 
AND *4F7 



:DUMP 
PART 
OF THE 

ImSmSry 



TIME 
THE 

BYTE TO 
SEE IF 
THERE 
IS AT 
LEAST 
ONE 

TIMING 



m, 



ACHD 



:ARM 
MOVE 
; ROUTINE 

;THIS 
ROUTINE 
HANDLES 

QUARTER 
jlRACKS 



;M 

Id 



; QUARTER 
TRACKNG 
MANAGER 
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if; 



1S8S 



12 



B2 



457 



464 



TAX 

m 

JSR 

ARMDONE JSR 
LDX 



ARMDONE 1 



PCS2 
PCS1 

ARMDQ1 
ARMDO 



05 1 



mil:'. 

Ul ' 
U2 

mm 

4C08<S!X 
EPCALli 

SKJcOUNT 
PCS2 

DRVLETTR 
H-O" 
PCS1 
CTRKD 

m 

CTRK 

mi 

CSLT 



; PLACE 



34 BB 
34 BB 
80 CO 
80 CO 
03 OC 



PHSLST 
PHSLST 

lEoio |x 

Wl ' 



l?34 



94B: 



4 



01 



elf 

FO 23 



CO 



CO 



CO 



515 
516 
51? 
518 



TRKDS 

TRKDSL1 

TRKDSL2 



TRKDSL3 



DRVSS1 



TRKV1 



TRKV1L1 DEC 



TRKV1L2 



TRKV1L3 



8I LT 

ll^YTE 

TRKDSL1 

TRKDSL2 
$1 

*C08C,X 
TRKDSll3 
ttfFF 
DRVSS1 

TRKDSL3 

?RKDSL3 
*0 



tt«10 

I? 

%2 
*3 
CSLT 

TRKV1ER 
tt*10 

*C08C,X 
TRKVlt.2 

I 

TRKV1L1 

TRKV1L2 
*C08C.X 
TRKV1L3 
*0 

T^KVIER 

TRKV1L3 
*3 

TRKV1L3 



;DISK 
SPEED 

I ROUTINE 



; HI GH 
jLOW 



;TI 
VERI 

PUT"" 

J CERT FY 
;TRACK 



'80: 61 



B981: 

1111; 



AO 00 
84 01 

A9 33 



TRKV1ER 
TRKV2 



RTS 

LDY 
STY 
LDA 



ttO 
*1 

M$33 



;TRACK 
VERIFY 
•ROUTINE 
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I98B 
I98C 



:992 

m 

B999 

m 
m 

m 

B9A9 
B9AA 



B9B1 
B9B3 
B9B5 



CO 



B9 



B9 



B9 



85 13 
20 C9 B9 



ST 



554 



TRKV2L1 

TRKV2L2 
TRKV2L3 



TRKV2L4 




CMF* 
BNE 
JSR 
CMP 



LT 

TRKV2L2 

°m 

KV2L2 
tt*D5 
TRKy2Ll 
DSKBYTE 

DSKBYTE 
#$55 




(BYTE 

_ YTE 

S«62ER 

?^KV2L4 

TRKV2L4 
CUIRK 



B9C8 



CO 



TRKV2ER 
DSKBYTE 



LDA *C08C.X 
BEL DSKBYTE 



I9CF 



1J 



1A 

ilC 
IF 

,22 

"5 
:8 



IC B2 



28 88 



OC 

oc 

CO 
CO 
B3 



7D B8 



BA17: 4i 



A9 00 
8D 37 BB 
8D 35 
8D BE 

3" 



8D 

A9 09 
8D 3<S 
A9 01 



B 



B 



BB 



582 SYNCTRK2 



SYS4 



SYL1 
SYL2 

SYS1 
SYS3 
SYS2 

DOESC 
ARMSPD 



ARMSPL1 



SYNCFL6 
SYS3 





JSR ARMV 
PLA 

JSR 

LDX CSLT 

m %*, 

BMI SYS2 

LDA *C08C,X 

m mi 



TBLE.Y 



*»*9 
SYL2 

ARMY 

m, 

BIT *C010 
JMP SYL1 
JMP CHKESC 

b?A ARMTFSL 
STA ARMWOKL 
STA ARMCVL 
STA ARMTFSH 
LDA #9 

ARMWOKH 



B2 




OFAST 
RMCVL 
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8D 35 BB 

ED 37 BB 
85 00 
AD BF B2 



60 38 BB 
8D BF B2 



BBS? 



BE B2 



hi 

AD 38 BB 
CD 36 BB 
90 86 



84 B2 



00 
00 
01 



34 



CO 



B 8 Si Cl1 



ft 



TOFAST 



ARMSPS1 
JMPHELP 

ARMSPL2 

TEST IT 



TEER 
PCRDCHK 



PCI 



PC2 



STA ARMUOKL 
SEC 

SBC ARMTFSL 
STA *0 
LDA ARMCVH 
STA ARMUIOKH 
ARMTFSH 
41 
$1 
$0 



T 8? 



F8 



PLA 



LSR 
ROR 
CLC 
LDA 40 

a~ 



FSL 



ARMTFS 
ARMCVH 

If 

BEQ ARMSPL2 
JMP ARMSPS1 

US 




DA 40 

IRA 41 

!EQ ARMSPL2 

LDA ARMTFSH 

CMP ARMWQKH 

BCC ARMSPLl 

LDA ARMTFSL 

CMP ARMUOKL 

ARMCVH 



LDA 4*488 
JSR ARMV2 
JSR TRKV3 
BCS TEER 
#0 

m 



JSF 
JSR 
RTS 

LDi IjjCCSLOT 
A 



A 

ASL 
ASL A 
ASL A 



#0 



STY 40 
STY 41 



PCERR 



LDA 4C081 ,X 
BPL PCI ' 
LDY #0 

4C081 ,X 
PCERR ' 



;A=LQU 
;X=H1GH 

; CHECK 
NEW ARM 
TEST 
SPEED 



PC2 
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m 

BAF9 

m 

BAFF 
BB01 

if 

BB09 
BBOB 
BBOD 

mi 

BB17 
BB19 
BB1B 

If 

BB23 
BB25 



:9 

IB2B 
IB2D 

111? 




60 CO 



CO 

I CO 
CO 



FO 06 
E6 00 
00 E3 
FO 04 



A5 01 
C9 20 
60 

20 81 B9 
BO 06 
C5 12 
DO 02 



00 
7D B8 



71 S 


PPQ 


71 X 
r 1 




717 
/if 


PPd 


71 ft 
/ID 




71 9 




79n 




791 




i§ 








794 








79X 


pre: 


797 




728 




729 


PPPPR 


730 




731 


PC6 


732 





TRKV3 



TRKV3ER 



#0 

*C080,X 

PCERR 
*^81 ,X 

*C080,X 
*1 

PCERR 

*0 

PC3 

PC6 

#*FF 

*1 

*1 

»*20 



TRKW2 
TRKV3ER 
CTRK 
TRKV3ER 



m 

no 

ARMU 



jTRACK 
VERIFY 

(ROUTINE 
FOR 

EXAMINE 
"VE'S 



(SPEED 

(test 



BB32: 
BB33: 
BB34: 

ppi 

1112! 



*~WORK iPAci~FOR~DRl0i~ROUTINii"* 
* * 



UANTTRK DFB 
j^THALF [ 

armBoj D£ 



ST DF 
1WOKL DFB 



F§b Bf! 



;WORK OK 
jTOSMALL 



MODWRITE DS *BB74-M0DWRITE 



B8A: 
B8C: 
BB8D: 
3B8E: 
BB8F: 

§92! 
BB93: 

B3i 

B96: 

mi 

BB9A: 
B9D: 
BAO: 
BA1 i 



9? 8F CO 
ID 8C CO 
EA 

4C FF FF 



51? 
Ill 



WRITETRK ASLA 
TAX 



81 



LTWRITE.X 
WRTJMP+i 
LTWRITE+1 ,X 
UgTjJMP+2 



jACTUAL 



INE 




WRTJMP 



LDA m 

STA *C08F ,X 

ORA 4C08C X 
NOP ' 

JMP $FFFF 



*~WRITi"ROUTINi~LOOKUP~TABLE * 
* « 



BBA4: 


B4 


BF 


BBA6: 


90 


IP 


BBA8: 
3BAA: 






3 s 




BBACj 


24 


I 






BF 




n 


BE 



LTWRITE DA LAF 

DA LAC 
DA LAB 



01 

H 

05 

m 
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FO 0? 
CA 

FO 06 
8) 03 



06 
CA 

FO 03 

If ?8 

B9 00 
?D 8D 
ID 8C 
C8 



78 



DF 
>C 01 BC 




BC 



EA 

B9 00 96 



:0 
1 

122 
23 

124 L94 

""} W94 



835 



S94 



95 



S95 



It 

6? L96 
865 W96 




.A6 
.A5 
.A4 

.Ar 

.A! 

.9 

_9C 

.9B 

_9A 

.99 

.98 

.97 

:» 

L94 



NOP 

LDA $9400 ,Y 
TAX 

Q S94 



EQ S94 
EX 

BEQ S94 

\ S94 

* $0 



CSLT 
*7800,Y 

iss* 



IE L94 
IP W95 



$9500 ,Y 
S95 
S95 
S95 
S95 
$0 

CSLT 
♦7900 ,Y 
♦C08D X 
«C08C;X 

L95 
W96 

♦9600 ,Y 

S96 

S96 

S96 

S96 

LD* *0 
LDX CSLT 
LDA *7A00 ,Y 

BNE L96 
JMP W97 

NOP 

LDA *9700,Y 
TAX 



•08 

|K 

OB 

|8E 



11 

11 

I 

! 

18 
19 
1A 
IB 
1C 



ACTUAL 

WRITE 

ROUTINE 

FOR 

$7800 



NOTE: 
TIMING 
IS VERY 
CRITICL 



:WRITE 

Hap 



jWRITE 
j*7A00 



;*7B00 
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BC4D: 



BC5I 
BC60: 
BC<*3: 
BC66: 
BC67: 
BC69: 



FO OC 
CA 

FO 09 




C8 

DO DF 
4C 6D 



BC 



B 



BC6C: 
60: 
70: 

3! 

76 1 



BC7A: 
BC7C: 



EA 

B9 00 98 
AA 

FO OC 

re 09 




BC90 
BC91 
BC94 
BC95 
BC97 



tO 

ll 

BCA3 
BCA5 



EK 



Eg 



§8B 
11 

BCD8 

I8BS 

BCDD 
BCDF 

§811 



EA 

B9 00 99 
AA 

K cc 

FO 09 

CA 

FO 06 

FO 03 
CA 

A5 00 
A6 10 
B9 00 7D 



4? B5 BC 



00 


9A 


OC 




09 




06 




03 




00 




10 

oo 




IB 


ll 

CO 


DF 





D9 BC 

00 9B 
OC 
09 
06 



899 
900 
901 



S97 



L98 
U98 



S98 



L99 

W99 



S99 



S9A 



L9B 
W9B 



S97 
S97 
S97 
S97 
$0 

BUo.Y 

!S8!8;S 

L97 
W98 

$9800 ,Y 

S98 

S98 

S98 

S98 



$0 

.i/A CSLT 

ORA *C08( 
I NY 

SUP W99 



$9900 ,Y 

S99 

S99 

S99 

S99 

*0 

CSLT 
*7D00,Y 

L99 
W9A 

♦9AO0 ,Y 

S9A 

S9A 

S9A 

S9A 

$0 

*C08D X 
$C08C|X 

L9A 
W9B 

*9B00,Y 
S9B 
S9B 
S9B 
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FO 03 



8 



7F 



B9 00 
9D 8D CO 
D 8C CO 



973 
974 

m 

977 
978 
979 
980 



S9B 




FO 06 
CA 

FO 03 



103: 
1033 
1034 
1035 




S9E 



00 9F 
AA 

FO OC 



09 
I 06 
Po 03 
A5 00 



1046 L9F 

1047 W9F 
1048 
1049 
1050 
1051 
1052 
1053 

18 

185: 



BEQ 

DEX 

m 

LDA 
STA 
ORA 
I NY 



S9B 

?8lt 

*7F00,Y 
*C08D X 
*C08C X 



DFB 0,0,0,0,0,0,0,0 




*9CO0 ,Y 
S9C 



Q S9C 



BEQ S9C 
DEX 

LDA 40 

LDX CSLT 

LDA *8000,Y 

STA *C08D X 

ORA *C08C,X 

bWe L9C 
JMP W9D 

NOP 

LDA *9D00,Y 
"X 
Q S9D 

S9D 
DEX 

BEQ S9D 
DEX 

S9D 

SIlt 

♦8100.Y 

18888;iS 

BNE L9D 
JMP W9E 

NOP 

LDA *9E00,Y 
^ S9E 




LT 
8200, Y 
TA *C08D X 
ORA *C08C X 
I NY 

BNE L9 
JMP W9 




5*8000 



5*8100 



5*8200 



*9F00,Y ;*8300 
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EA 

B9 00 AO 
AA 

OC 



FO 0? 
CA 

FO 06 



® 



03 




CA 
A5 00 
A6 
B9 
9D 
ID 
C8 
DO 
4C 



t 

CO 



BD 



B9 00 Al 
AA 

FO OC 
Po 09 



Pi 



06 
03 




CA 
A5 00 
A6 10 
B9 00 85 

DO DF 
4C DD BD 



00 A2 
AA 

FO OC 



a 09 

FO 04 

a M 

A5 00 

B9* 48 86 
9D 8D CO 
ID 8C CO 

68 DF 
4C 01 BE 

>0: EA 

il: B9 00 A3 

ft ° C 
FO 09 
CA 

FO 06 

CA 

EO 03 



A6 
B9 

ID 



6 



18 



87 
CO 
CO 



DF 



S9F 



066 LAO 

067 WAO 



•ft 

078 SAO 



LAI 
UAI 



SAl 



SA2 



3| SA3 



Slbio ,Y 

US 




ORA IcolcIX 
NOP 

LJDg $A100,Y 
BEQ SAl 
SAl 
SAl 
'Q SAl 



TAX 



TAX 




BEQ SA2 

' »Q SA2 

| SA2 

BEQ SA2 
DEX 

LDA $0 

LDX CSLT 

LDA f8?Q0,Y 

STA *C08D X 

ORA *C08C X 
INY ' 

m m 

NOP 

LDA «A300,Y 



SA3 
SA3 



BEQ 
DEX 
BEQ SA3 
DEX 



SA3 

to 

CSLT 
♦8700 ,Y 

LA3 



5*8400 



5*8500 



*A200,Y ;*8600 



5*8700 



Page 91 



4C 25 BE 



I" 





B 



00 A4 

0C 

09 

06 

03 



A5 00 
A6 10 



SI 



; ?? be 



00 A5 
AA 

FO OC 




89 

>D 8D CO 
ID 8C CO 

B? DF 
4C 60 BE 




AS 00 
A4 10 
9 00 8A 

B 18 88 




DF 

4C B5 BE 



19 00 A8 
"o OC 



LA4 
UA4 



SA4 



SAS 



199 



:24 

: 26 LA8 
■27 WA8 



UA4 

$A400,Y 

SA4 

SA4 

SA4 

SA4 

$0 

CSLT 
$8800 ,Y 
*C08D X 
*C08C,X 

LA4 
UA5 

*A500 ,Y 

SA5 

SAS 

SA5 

SAS 

Sl^O ,Y 
«C08D X 
*C08C,X 

LA5 
WA<4 

*A<SOO,Y 

SA6 

SA6 

SA6 

SA4 



*A?00,Y 

SA7 

SA7 

SA? 

SA7 

to 

Slboo.Y 

LA7 
WA8 

«A800,Y 
SA8 



;$8800 



i*8900 



;*8AO0 



5*8BOO 



;*8C00 
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BB: CA 

BC: FO 

BE: CA 

BF: FO 06 




BED8: 
BED9: 



EA 

B? 00 A? 

ft) OC 
CA 

FO 09 

FO 06 

FO 03 
CA 

A5 
A6 1 
B9 
9D 8 
ID 8 

BS DF 
4C 01 



8D 
CO 
CO 



BF 



00 00 00 



BEFF: Oi 



A 

9 00 AA 




IF24: EA 

IF25: B9 00 AB 

IF2B: AA 

IF29: FO OC 

if I?: P8 09 

m\ n 

IF 




00 AC 



t. 



Hi 



130 



SA9 



00 SAB 
1 



108 LAC 

109 WAC 



NOP 



ITA 



JMI 

NOP 

LDA 

P 

DEX 



DEX 

m sA8 

SA8 
SA8 

CS»LT 
*8C00,Y 
*C08D X 
*C08C;X 

LA8 

WA9 

♦A900 ,Y 

SA9 

SA9 

SA9 

SA9 

$0 
CSLT 
*8D00 ,Y 
$C08D X 
*C08C;X 

LA9 
WAA 

DFB 0,0,0,0 



*AAOO,Y 

SAA 

SAA 

SAA 

SAA 

*0 

CSLT 
*8E00,Y 
♦C08D X 
*C08C|X 

LAA 
UAB 




314 



*AC00,Y 

SAC 

SAC 



j*8D00 



i*8EQ0 



;$8F00 



;*9000 
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i3: 

15 



FO 04 
CA 

FO 03 
CA 

AS 00 
%9 00 90 

IB IB 8 

8 



<SD BF 



00 AD 
AA 

FO OC 



00 91 
8D CO 
8C CO 



BF 





00 92 
15 BF 



CO 
CO 



318 
31 

320 SAC 



ill 



28 LAD 

29 WAD 
330 

331 



33; 



SAD 



356 
357 



368 LAF 
WAT 



BEQ SAC 
DEX 

BEQ SAC 

DEX 



ik 

STA 
ORA 
I NY 



LA 



•90; 

*88ec 



CSL" 

*90"0Q,Y 

""IB X 



LAC 
WAD 



NOP 

LDA *AD00,Y 
TAX 

IEQ SAD 




CSLT 
*9100,Y 
♦C08D X 
*C08C X 



$AEOO,Y 

SAE 

SAE 

SAE 

SAE 

*0 

CSLT 
♦9200, Y 
♦C08D X 
*C08C',X 

LAE 
WAF 

*AFOO,Y 

SAF 

SAF 

SAF 

SAF 

*0 

CSLT 

turn 

*C08CjX 
LAF 



SD1 

*C08E,X 
♦C08C X 



1*9100 



;*9200 



;$9300 



— End assembly 
2276 bytes 
Errors: 



Page 94 



